From 0a27d0ebdc8ebc496c4dc92de3466db3aafcf87f Mon Sep 17 00:00:00 2001
From: oreodave <aryadevchavali1@gmail.com>
Date: Mon, 4 Nov 2019 00:23:16 +0000
Subject: +abbrev table for greek letters

---
 doom.d/config.org | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'doom.d/config.org')

diff --git a/doom.d/config.org b/doom.d/config.org
index 78c41b5..df5c733 100644
--- a/doom.d/config.org
+++ b/doom.d/config.org
@@ -265,6 +265,20 @@ My docsets are stored in .docsets for ease of use
 (after! org
   (add-hook 'org-mode-hook #'visual-line-mode)
   (remove-hook 'org-mode-hook #'auto-fill-mode)
+  (define-abbrev-table 'org-mode-abbrev-table
+    (mapcar
+     (lambda (char-string)
+       (let ((character-property-elements
+              (split-string (get-char-code-property (encode-char (string-to-char char-string) 'unicode) 'name) " ")))
+         (list
+          (concat
+           (if (member "CAPITAL" character-property-elements)
+               (capitalize (-last-item character-property-elements))
+             (downcase (-last-item character-property-elements)))
+           "x")
+          char-string)))
+     '("α" "β" "γ" "δ" "ε" "ζ" "η" "θ" "ι" "κ" "λ" "μ" "ν" "ξ" "ο" "π" "ρ" "σ" "τ" "υ" "φ" "χ" "ψ" "ω"
+       "Α" "Β" "Γ" "Δ" "Ε" "Ζ" "Η" "Θ" "Ι" "Κ" "Λ" "Μ" "Ν" "Ξ" "Ο" "Π" "Ρ" "Σ" "Τ" "Υ" "Φ" "Χ" "Ψ" "Ω")))
   (map! ; Org keybinds
    :map org-mode-map
    :localleader
-- 
cgit v1.2.3-13-gbd6f