fix a rendering issue

01_basic/10_Introduction/20_very_basic.lhs

@@ -140,18 +140,18 @@ en: Although it is not mandatory, type information for functions is usually made
 en: explicit. It's not mandatory because the compiler is smart enough to discover
 en: it for you. It's a good idea because it indicates intent and understanding.
 fr: Même si ce n'est pas obligatoire, les informations de type pour les fonctions sont habituellement déclarées
-fr: explicitement. Ce n'est pas indispensable car le compilateur est suffisament intelligent pour le déduire
+fr: explicitement. Ce n'est pas indispensable car le compilateur est suffisamment intelligent pour le déduire
 fr: à votre place. Cependant, c'est une bonne idée car cela montre bien l'intention du développeur et facilite la compréhension.
 
 en: Let's play a little.
+en: We declare the type using `::`
 fr: Jouons un peu.
+fr: On déclare le type en utilisant `::`
 
-en: > -- We declare the type using ::
-fr: > -- On déclare le type en utilisant:
-> f :: Int -> Int -> Int
-> f x y = x*x + y*y
+>  f :: Int -> Int -> Int
+>  f x y = x*x + y*y
 >
-> main = print (f 2 3)
+>  main = print (f 2 3)
 
 ~~~
 ~ runhaskell 20_very_basic.lhs

create_ymd.sh

@@ -37,11 +37,15 @@ END
 
 # get a list of
 # depth anchor name
-grep -e '<h.' **/*.lhs | perl -pe 's#.*<h([2-6]) id="#\1 #;s#"[^>]*># "#; s#<.*#"#' |
-while read num anchor title; do
-    echo -n '> '
-    while ((num-->2)); do echo -n "  "; done
-    echo '* <a href="#'$anchor'">'${title[2,-2]}'</a>'
+grep -e '<h.' **/*.lhs | perl -pe 'if (/^.*?:..:/) {s#^.*?:(..):.*<h([2-6]) id="#$1 $2 #; } else {s#.*<h([2-6]) id="#all $1 #;} ; s#"[^>]*># "#; s#<.*#"#' |
+while read language num anchor title; do
+    if [[ $language = "all" ]]; then
+        echo -n '> '
+    else
+        echo -n $language': > '
+    fi
+        while ((num-->2)); do echo -n "  "; done
+        echo '* <a href="#'$anchor'">'${title[2,-2]}'</a>'
 done
 
 

prev

@@ -1,16 +1,14 @@
 #!/usr/bin/env zsh
 
-webroot="$HOME/Sites/webroot"
+webroot="$HOME/Sites/yblog"
 
 print -- "Create article"
-./create_ymd.sh > $webroot/latest.ymd
+./create_ymd.sh > $webroot/multi/blog/Haskell-the-Hard-Way.md
 
 print -- "Copy sources"
 for langue in en fr; do
-    dst="$webroot/output/Scratch/$langue/blog/Haskell-the-Hard-Way/code"
+    dst="$webroot/Scratch/$langue/blog/Haskell-the-Hard-Way/code"
+    print $dst
     [[ ! -d $dst ]] && mkdir -p $dst
     cp -r *.lhs ??_*(/)  $dst
 done
-
-cd $webroot
-./tasks/recompile