Feufochmar
/
feuforeve.v4
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add lists of items in the notepad.

This commit is contained in:
Feufochmar 2021-07-13 16:30:03 +02:00
parent 240727378f
commit 1ec3364a43
1 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/pages/notepad.rkt
View File

@ -235,6 +235,9 @@
("paragraph" "justify" "text" ("Démarre un paragraphe contenant " (code "text") " avec la justification " (code "justify")
" (optionnelle, valeurs possibles: " (code "left") ", " (code "right") " ou " (code "center") "). "))
("para" #f "text" ("Synonyme de " (code "paragraph") "."))
("list" "ord" "items" ("Demarre une liste. Le paramètre " (code "ord") " est optionnel et peut prendre les valeurs "
(code "ordered") " pour une liste ordonnée et " (code "unordered") " pour une liste non-ordonnées (valeur par défaut)."))
("item" #f "text" ("Un élément d'une liste contenant le texte " (code "text") "."))
))
)
))
@ -413,11 +416,22 @@
((paragraph para)
(if (not (null? (cdr parsed)))
(case (cadr parsed)
((left) `(p ((style "text-align: left;")) ,@(recur (cddr parsed))))
((right) `(p ((style "text-align: right;")) ,@(recur (cddr parsed))))
((center centered) `(p ((style "text-align: center;")) ,@(recur (cddr parsed))))
(else `(p ,@(recur (cdr parsed)))))
((left) `(p ((style "text-align: left;")) ,@(recur (cddr parsed))))
((right) `(p ((style "text-align: right;")) ,@(recur (cddr parsed))))
((center centered) `(p ((style "text-align: center;")) ,@(recur (cddr parsed))))
(else `(p ,@(recur (cdr parsed)))))
#f))
; @list[ordered|unordered]{Text} : List of items. Unordered by default.
((list)
(if (not (null? (cdr parsed)))
(case (cadr parsed)
((ordered) `(ol ,@(recur (cddr parsed))))
((unordered) `(ul ,@(recur (cddr parsed))))
(else `(ul ,@(recur (cdr parsed)))))
#f))
; @item{Text} : item of list
((item)
`(li ,@(recur (cdr parsed))))
; Other kind of lists: recurse on them
(else
(recur parsed))