From f45150b56a487d1bcabcdafa7d65f9ac4bc0f42d Mon Sep 17 00:00:00 2001
From: Kjetil Orbekk <kj@orbekk.com>
Date: Sat, 6 Jan 2024 10:58:07 -0500
Subject: Add bindings

---
 emacs/.config/emacs-kj/init.el             | 43 +++++++++++++++++++++++++-----
 emacs/.config/emacs-kj/lisp/kj-bindings.el |  3 ++-
 2 files changed, 39 insertions(+), 7 deletions(-)

(limited to 'emacs')

diff --git a/emacs/.config/emacs-kj/init.el b/emacs/.config/emacs-kj/init.el
index dda4edd..8abdd6e 100644
--- a/emacs/.config/emacs-kj/init.el
+++ b/emacs/.config/emacs-kj/init.el
@@ -819,15 +819,46 @@
   (when (file-exists-p google-config-file)
     (load-file google-config-file)))
 
-;; Bridge abbrevs
-;; Maybe use this instead? https://lists.gnu.org/archive/html/help-gnu-emacs/2021-11/msg00436.html
-(define-global-abbrev "club" "♣")
-(define-global-abbrev "diamond" "♦")
-(define-global-abbrev "heart" "♥")
-(define-global-abbrev "spade" "♠")
+;; Special symbols
+(use-package emacs
+  :defer 1
+  :config
+  (defvar kj/iso-transl-char-map
+    '(
+      ;; fractions that emacs doesn't include
+      ("1/3" . [?⅓])
+      ("1/5" . [?⅕])
+      ("1/6" . [?⅙])
+      ("1/7" . [?⅐])
+      ("1/8" . [?⅛])
+      ("1/9" . [?⅑])
+      ("1/10" . [?⅒])
+      ("2/3" . [?⅔])
+      ("2/5" . [?⅖])
+      ("3/5" . [?⅗])
+      ("3/8" . [?⅜])
+      ("4/5" . [?⅘])
+      ("5/6" . [?⅚])
+      ("5/8" . [?⅝])
+      ("7/8" . [?⅞])
+      ;; add the emojis I commonly use
+      (":c" . [?✅])
+      (":u" . [?👍])
+      (":d" . [?👎])
+      (":w" . [?🖐])
+      ;; card suits
+      ("c" . [?♣])
+      ("h" . [?♥])
+      ("d" . [?♦])
+      ("s" . [?♠])))
+  (require 'iso-transl)
+  (iso-transl-define-keys kj/iso-transl-char-map)
+  :init
+  (require 'iso-transl))
 
 (use-package pcre2el)
 (use-package pdf-tools)
+(use-package helpful)
 
 ;;; Picking a specific eglot action.
 ;; (defun my-replace-with-deduced-type (beg)
diff --git a/emacs/.config/emacs-kj/lisp/kj-bindings.el b/emacs/.config/emacs-kj/lisp/kj-bindings.el
index a9979cc..14a295e 100644
--- a/emacs/.config/emacs-kj/lisp/kj-bindings.el
+++ b/emacs/.config/emacs-kj/lisp/kj-bindings.el
@@ -20,7 +20,8 @@
    ("C-c r p" . flymake-goto-prev-error)
    ("C-c w u" . winner-undo)
    ("C-c w U" . winner-redo)
-   ("C-<tab>" . completion-at-point))
+   ("C-<tab>" . completion-at-point)
+   ("<f5>" . iso-transl-ctl-x-8-map))
 
   :config
   (defvar kj/flymake-repeat-map (make-sparse-keymap "flymake"))
-- 
cgit v1.2.3