diff options
| author | Kjetil Orbekk <kj@orbekk.com> | 2024-01-06 10:58:07 -0500 |
|---|---|---|
| committer | Kjetil Orbekk <kj@orbekk.com> | 2024-01-06 11:01:03 -0500 |
| commit | f45150b56a487d1bcabcdafa7d65f9ac4bc0f42d (patch) | |
| tree | 71ad1db447336497c55b317bd2129c18b8143993 | |
| parent | 8cb32e9c0c47f3f398aaba024131e938063560ac (diff) | |
Add bindings
| -rw-r--r-- | emacs/.config/emacs-kj/init.el | 43 | ||||
| -rw-r--r-- | emacs/.config/emacs-kj/lisp/kj-bindings.el | 3 |
2 files changed, 39 insertions, 7 deletions
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")) |