emacs: Switch to tempel for snippets

modules/base/emacs/base-init.el

@@ -261,6 +261,18 @@
 (use-package rainbow-delimiters
   :hook (prog-mode . rainbow-delimiters-mode))
 
+;; Tempel (snippet expansion)
+(use-package tempel
+  ;; This is not very nice, but let's just assume that development machines have my nixos-config checked out
+  :custom (tempel-path "/home/charlotte/repos/nixos-config/modules/base/emacs/snippets/*.eld")
+  :general
+  (lmap
+    "t i" '(tempel-insert :which-key "Insert template")
+    )
+  :config
+  (setq completion-at-point-functions (cons #'tempel-complete completion-at-point-functions))
+  )
+
 ;; List item selection interface
 (use-package vertico
   :custom (vertico-count 20 "Allow selector to be a bit higher")

modules/base/emacs/snippets/fundamental.eld

@@ -0,0 +1,6 @@
+fundamental-mode
+
+(today (format-time-string "%Y-%m-%d"))
+(NOW (format-time-string "<%Y-%0m-%0d %a %H:%0M>"))
+(yesterday (format-time-string "<%Y-%0m-%0d %a>" (time-subtract nil (* 24 60 60))))
+(tomorrow (format-time-string "<%Y-%0m-%0d %a>" (time-add nil (* 24 60 60))))

modules/base/emacs/snippets/java.eld

@@ -0,0 +1,7 @@
+java-mode
+
+(sout "System.out.println(" r ");")
+(serr "System.err.println(" r ");")
+
+(class "public class " p " {" n> q n "}")
+(main "public static void main(String[] args) {" n> q n "}")

modules/base/emacs/snippets/mu4e-compose.eld

@@ -0,0 +1,28 @@
+mu4e-compose-mode
+
+(teacher-reply
+ "Dag " q n n
+ r n
+ "Welkom op Dodona! Zou je het volgende formulier kunnen invullen?" n n
+ "https://dodona.ugent.be/rights_requests/new/" n n
+ "Zo hebben we meteen alle info die we nodig hebben om je lesgeversrechten te geven op Dodona." n n
+ "Met vriendelijke groeten" n
+ "Charlotte Van Petegem"
+ )
+
+(twist-exam-nag-en
+ "Hi " q n n
+ "A part of being a member of the TWIST department is contributing to exam supervision. Since the department board meeting of september 2022 it was decided to ask a bit more of people who don't contribute or contribute less to education during the semester, to allow the people who have to mark a lot of exams to concentrate on that. You are expected to do 3 supervisions, but as far as I can see that is not the case yet. Can I ask that you register for a number of exam supervisions? You can do so via the following spreadsheet: https://sharepoint.ugent.be/teams/WE02/_layouts/15/WopiFrame2.aspx?sourcedoc=%7BAA66A430-5240-4002-9D47-F6D06CF819AA%7D&file=Examentoezichten.xlsx&action=default&IsList=1&ListId=%7BA2BEB5ED-0C41-4A4B-ADCA-8F7CD56C2BBB%7D&ListItemId=2 (see also the email that was sent to the department mailing list at the end of the semester)." n n
+ "If you received this mail in error, please let me know, then I won't bother you in the future." n n
+ "Kind regards" n
+ "Charlotte Van Petegem"
+ )
+
+(twist-exam-nag-nl
+ "Dag " q n n
+ "Een deel van lid zijn van de TWIST vakgroep is het bijdragen aan de toezichten bij de examens. Sinds de vakgroepraad van september 2022 is er ook besloten om iets meer te vragen van mensen die minder (of niet) aan onderwijs bijdragen om de mensen met veel verbeterwerk toe te laten om zich daarop te kunnen concentreren. Jij wordt verwacht 3 toezichten te doen, maar voor zover ik kan zien is dat nog niet het geval. Mag ik vragen van je te registreren voor een aantal examentoezichten? Dat kan via de volgende spreadsheet: https://sharepoint.ugent.be/teams/WE02/_layouts/15/WopiFrame2.aspx?sourcedoc=%7BAA66A430-5240-4002-9D47-F6D06CF819AA%7D&file=Examentoezichten.xlsx&action=default&IsList=1&ListId=%7BA2BEB5ED-0C41-4A4B-ADCA-8F7CD56C2BBB%7D&ListItemId=2 (zie ook de mail die op het einde van het semester naar de mailinglijst van de vakgroep werd verstuurd)?" n
+ "Als je deze mail foutief gekregen hebt, laat het mij dan zeker weten, dan val ik je in de toekomst niet meer lastig." n n
+ "Alvast bedankt" n
+ "Met vriendelijke groeten" n
+ "Charlotte Van Petegem"
+ )

modules/base/emacs/snippets/python.eld

@@ -0,0 +1,14 @@
+python-mode
+
+(class "class " p ":"
+       n> "\"\"\""
+       n> p
+       n> "\"\"\""
+       n> "def __init__(self" (p ", *args, **kwargs") "):"
+       n> "\"\"\""
+       n> p
+       n> "\"\"\""
+       n> q
+       )
+
+(def "def " p "(" (p "*args, **kwargs") "):" n> "\"\"\"" n> p n> "\"\"\"" n> q)