1 files changed, 86 insertions, 0 deletions
diff --git a/.config/emacs/modules/mm-abbrev.el b/.config/emacs/modules/mm-abbrev.el
new file mode 100644
index 0000000..29ad72e
--- /dev/null
+++ b/.config/emacs/modules/mm-abbrev.el
@@ -0,0 +1,86 @@
+;;; mm-abbrev.el --- Emacs abbreviations and templates  -*- lexical-binding: t; -*-
+
+;;; Helpers
+
+(defmacro mm-define-abbreviations (table &rest definitions)
+  "Define abbrevations for an abbreviation TABLE.
+Expand abbrev DEFINITIONS for the given TABLE.  DEFINITIONS are a
+sequence of either string pairs mapping an abbreviation to its
+expansion, or a string and symbol pair mapping an abbreviation to a
+function."
+  (declare (indent 1))
+  (unless (cl-evenp (length definitions))
+    (user-error "expected an even-number of elements in DEFINITIONS"))
+  (macroexp-progn
+   (cl-loop for (abbrev expansion) in (seq-partition definitions 2)
+            if (stringp expansion)
+              collect (list #'define-abbrev table abbrev expansion)
+            else
+              collect (list #'define-abbrev table abbrev "" expansion))))
+
+
+;;; Abbreviation Configuration
+
+(use-package abbrev
+  :init
+  (setq-default abbrev-mode t)
+  :custom
+  (abbrev-file-name (expand-file-name "abbev-defs" mm-data-directory))
+  (save-abbrevs 'silently))
+
+
+;;; Abbreviation Definitions
+
+(defvar mm-c-mode-abbrev-table (make-abbrev-table)
+  "Abbreviations shared between `c-mode', `c++-mode', `c-ts-mode', and
+`c++-ts-mode'.")
+
+(mm-define-abbreviations mm-c-mode-abbrev-table
+    "flf" "flockfile"
+    "fpf" "fprintf"
+    "fuf" "funlockfile"
+    "pf"  "printf"
+    "se"  "stderr"
+    "si"  "stdin"
+    "so"  "stdout")
+
+(with-eval-after-load 'cc-mode
+  (setq c-mode-abbrev-table   (copy-abbrev-table mm-c-mode-abbrev-table)
+        c++-mode-abbrev-table (copy-abbrev-table mm-c-mode-abbrev-table)))
+(with-eval-after-load 'c-ts-mode
+  (setq c-ts-mode-abbrev-table   (copy-abbrev-table mm-c-mode-abbrev-table)
+        c++-ts-mode-abbrev-table (copy-abbrev-table mm-c-mode-abbrev-table)))
+
+(mm-define-abbreviations emacs-lisp-mode-abbrev-table
+  "ald" ";;;###autoload"
+  "gc"  "goto-char"
+  "ins" "insert"
+  "nrt" "narrow-to-region"
+  "pmn" "point-min"
+  "pmx" "point-max"
+  "pnt" "point"
+  "rap" "region-active-p"
+  "rb"  "region-beginning"
+  "re"  "region-end"
+  "se"  "save-excursion"
+  "sme" "save-mark-and-excursion"
+  "sr"  "save-restriction")
+
+
+;;; Template Configuration
+
+(use-package tempel
+  :ensure t
+  :demand t
+  :pin gnu
+  :bind (:map tempel-map
+         ("TAB"   . tempel-next)
+         ("S-TAB" . tempel-previous))
+  :custom
+  (tempel-trigger-prefix ",")
+  :init
+  (setopt tempel-path (expand-file-name "templates" mm-config-directory))
+  (add-hook 'completion-at-point-functions #'tempel-complete -10)
+  (add-to-list 'auto-mode-alist (cons tempel-path #'lisp-data-mode)))
+
+(provide 'mm-abbrev)