mailing-list for TeXmacs Users

[vincent douce <address@hidden>]

hi

i give you my shortcuts of the moment, i.e. the my-init-texmacs i currently use (end of this mail)

for my own purpose it is very, very efficient

one of my job is giving maths lessons to students via zoom of bbb, and the speed i write mahts on the screen is approximatively the same as if i was writing on a paper : i find therefore the tool is good

when i have reached a cuple of steps (some features still miss a lot : some unicode shortcuts, "tableaux de variations", size by default of pictures…) i can make a video on it if you find useful

the question will be then : would it have sense to share it ?

i thank the people on this mailing list who are helping me when i have questions :-)

that's a real pleasure to work on texmacs

Vincent

- -- - 

;--------------------------------------------

;---- insertion de schémas (by Giovanni) ----

;--------------------------------------------

(kbd-map (:mode in-text?)

     ("C-D" (insert '(with "gr-mode" (tuple "hand-edit" "line") "gr-frame" (tuple "scale" "1cm" (tuple "0.5gw" "0.5gh")) "gr-geometry" (tuple "geometry" "4cm" "4cm") (graphics "")))); very fine !

     ("d d d" (insert '(with "gr-mode" (tuple "hand-edit" "line") "gr-frame" (tuple "scale" "1cm" (tuple "0.5gw" "0.5gh")) "gr-geometry" (tuple "geometry" "4cm" "4cm") (graphics "")))); very fine !

     ("t t t" (concat (block* (tformat (table (row (cell ""))))) ""));does not work

)

;------------------------

;---- lettre doubles ----

;------------------------

(delayed (lazy-keyboard-force) 

         (kbd-map

           (:mode in-math?)

  ;------------ lettres doubles et triples ------------           

      ("^ ^" (make-wide "^")) ; pour notation des angles ok

      ("° °" (make-wide "<abovering>")); does not work

      ("_ _" (make-wide-under "<wide-bar>")) ; pour souligner

      ("a a" (make-above))

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

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

      ("b b" (make-below))

      ("b b b" (make 'binom))

      ;("c c" ) cc is necessary for arccos

      ("c c c" (insert-go-to '(with "math-display" "true" (choice (tformat (table (row (cell "")))))) (list 2 0 0 0 0) )); C C necessary for the set of complex

      ("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>"))

      ("D D D" "<mathLaplace>"); ressemble au delta

      ("e e" "<mathe>")

      ("f f" (make-fraction))

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

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

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

      ("i i" "<mathi>")

      ("m m" (make 'matrix))

      ("n n" (make-neg))

      ;("N N N" (make-nabla)); NN necessary for Natural numbers 

      ;("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 'text))

      ("T T" (concat (block* (tformat (table (row (cell ""))))) ""));does not work

      ("ù ù" (make 'text));does not work

      ("v v" (make-wide "<vect>")); vvv necessary for often-typed "vector v"    

           )

         )

;-------------------------

;---- symboles divers ----

;-------------------------

(delayed (lazy-keyboard-force) 

         (kbd-map

         (:mode in-math?)

      ("= var" "<Leftrightarrow>"); ---- <=> ---- very very very useful

      

      ("&" "<cap>"); ---- inter ----not the good one : too tiny…

      ("& . ." "<cap><cdots><cap>")

      ("& var" "<wedge>")

      ("& var . ." "<wedge><cdots><wedge>")

      ("& var var" "<cap>")

      ("%" "<cup>"); ---- union ---- pas le bon !!!!!

      ("% . ." "<vee><cup><vee>")

      ("% var" "<vee>")

      ("% var . ." "<vee><cdots><vee>")

      ("% var var " "%")

      ("% var var var" "<cup>")

      

      ("x var" "<times>"); ---- touche X ----

      ("x var var" "<xi>")

      ;("/ /" "|" <move|"/"|-9pt|>)

      ("A var" "<forall>");

      ("A var var" "<aleph>");

      ("C var" "<complement>"); le vieux binome C

      ("E var" "<exists>");

      ("I var" "<Im>");

      ("R var" "<Re>");

      ("S var" "<sigma>"); petit sigma : peut servir ?

      ("T var" "<bot>")

      ;faire les jolis <= pour les relation d'ordre

      ;("table N T" (make 'tabular*))

      ;("table N c" (make 'choice))

      ;("table N m" (make 'matrix))

      ;("table N M" (make 'bmatrix))

      ;("table N d" (make 'det))

      ;("table N s" (make 'stack))

      ("space e t" "(make 'infix-and)")

; inutiles grâce au raccourci pomme-alt-flèches :

      ;("space space" (make-space "0.6spc")

      ;("; ; ;" (make-space "0.6spc"))

      ;("z z" (make-space "0.6spc"))

           )

         )

;-----------------------------------

;------ exports automatisés ------

;-----------------------------------

;---- export pdf ----

(define (propose-pdf-name)

  (with name (propose-name-buffer)

    (if (string-ends? name ".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)))

;---- export html ----

(define (propose-html-name)

  (with name (propose-name-buffer)

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

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

(define (export-to-proposed-html)

  (let ((html-name (propose-html-name)))

    ((buffer-exporter "html") html-name));)

    )

(kbd-map ("M-e h" (export-to-proposed-html)))

;---- export pdf+html ----

(kbd-map ("M-e a" (export-to-proposed-html) (export-to-proposed-pdf)))

;------------------------------------

;--- noms de couleur en deux mots ---

;------------------------------------

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