;–––––––––––––––––

;–– raccourcis clavier perso ––

;–––––––––––––––––

(delayed (lazy-keyboard-force) 

(kbd-map

(:mode in-math?)

;–––––– lettres doubles –––––– 

("^ ^" (make-wide "^"))

("° °" (make-wide "<abovering>")) ; marche pas

("_ _" (make-wide-under "<wide-bar>"))

("a a" (make-above))

("A A" (make-wide "<invbreve>")); arcs de cercle

("b b" (make-below))

("B B" (make-wide "<bar>"))

("c c" (make-wide "<binom>"))

("d d" (make-wide "<dot>"))

("d d var" (make-wide "<ddot>"))

("d d var var" (make-wide "<dddot>"))

("d d var var var" (make-wide "<ddddot>"))

("f f" (make-fraction))

("f f var" (make 'tfrac))

("f f var var" (make 'dfrac))

("f f var var var" (make 'frac*))

("f f var var var var" (make 'cfrac))

("i i" (math-big-operator "int"))

("n n" (make-neg))

("o o" (make 'op)); sert à quoi ???

("p p" (math-big-operator "prod"))

("r r" (make-sqrt))

("r r var" (make-var-sqrt))

("s s" (math-big-operator "sum"))

("t t" (make-wide "<text>"))

("v v" (make-wide "<vect>")) 

)

)

;–––––––––––––––––-

;––– export pdf automatisé –––

;–––––––––––––––––-

(define (propose-pdf-name)

(with name (propose-name-buffer)

(if (string-ends? name "_tm.tm")

(string-append (string-drop-right name 3) ".pdf"))))

(define (export-to-proposed-pdf)

(let ((pdf-name (propose-pdf-name)))

(wrapped-print-to-file pdf-name)))

(kbd-map

("M-e p" (export-to-proposed-pdf)))

;–––––––––––––––––

;– noms de couleur en deux mots –

;–––––––––––––––––

(assign "darkgreen" (macro "body" (with "color" "dark green" (arg "body"))))