[emacs] add bqn abbrev table

1 files changed, 88 insertions, 2 deletions

diff --git a/emacs/inits/20-programming.el b/emacs/inits/20-programming.el
index 4ec41b6..ba69e8d 100644
--- a/emacs/inits/20-programming.el
+++ b/emacs/inits/20-programming.el
@@ -1,4 +1,4 @@
-;; Time-stamp: <2024-01-23 22h05 CET (1c015732)>
+;; Time-stamp: <2024-01-28 20h33 CET (anker)>
 
 ;; -----------------------------------------------------------------------------
 ;; General setup
@@ -342,4 +342,90 @@
   :bind (:map bqn-mode-map
               ("C-c r r" . bqn-comint-eval-dwim)
               ("C-c r b" . bqn-comint-eval-buffer))
-  :hook (bqn-mode . (lambda () (eglot-ensure))))
+  :hook (bqn-mode . (lambda () (eglot-ensure) (abbrev-mode)))
+  :config
+  (define-abbrev-table 'bqn-mode-abbrev-table
+    '( ;; funtions
+      ("abs" "│")
+      ("and" "∧")
+      ("assert" "!")
+      ("ceiling" "⌈")
+      ("classify" "⊐")
+      ("couple" "≍")
+      ("deduplicate" "⍷")
+      ("depth" "≡")
+      ("deshape" "⥊")
+      ("dgrade" "⍒")
+      ("divide" "÷")
+      ("dsort" "∧")
+      ("enlist" "⋈")
+      ("floor" "⌊")
+      ("group" "⊔")
+      ("gt" ">")
+      ("gte" "≥")
+      ("indices" "/")
+      ("join" "∾")
+      ("left" "⊣")
+      ("length" "≠")
+      ("lshift" "«")
+      ("lt" "<")
+      ("lte" "≤")
+      ("match" "≡")
+      ("maximum" "⌈")
+      ("member" "∊")
+      ("minimum" "⌊")
+      ("modulus" "│")
+      ("multiply" "×")
+      ("neq" "≠")
+      ("nmatch" "≢")
+      ("not" "¬")
+      ("occurrence" "⊒")
+      ("or" "∨")
+      ("pair" "⋈")
+      ("pick" "⊑")
+      ("power" "⋆")
+      ("prefixes" "↑")
+      ("range" "↕")
+      ("recip" "÷")
+      ("replicate" "/")
+      ("reshape" "⥊")
+      ("reverse" "⌽")
+      ("right" "⊢")
+      ("root" "√")
+      ("rshift" "»")
+      ("select" "⊏")
+      ("shape" "≢")
+      ("sign" "×")
+      ("solo" "≍")
+      ("span" "¬")
+      ("sqrt" "√")
+      ("subtract" "─")
+      ("suffixes" "↓")
+      ("transpose" "⍉")
+      ("ugrade" "⍋")
+      ("usort" "∨")
+      ;; combinators
+      ("atop" "∘")
+      ("catch" "⎊")
+      ("choose" "◶")
+      ("constant" "˙")
+      ("lhook" "⊸")
+      ("over" "○")
+      ("rhook" "⟜")
+      ("self" "˜")
+      ("swap" "˜")
+      ("under" "⌾")
+      ("valences" "⊘")
+      ;; 1-modifiers
+      ("cells" "˘")
+      ("each" "¨")
+      ("fold" "´")
+      ("insert" "˝")
+      ("scan" "`")
+      ("table" "⌜")
+      ("undo" "⁼")
+      ;; 2-modifiers
+      ("depth" "⚇")
+      ("rank" "⎉")
+      ("repeat" "⍟")
+      )))