From f78d4f91215c16a76c5f27150598ebb97589c42e Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Fri, 5 Feb 2021 16:28:44 +0100 Subject: [PATCH] SLY: Bind keys for glyphs. --- .emacs.d/lisp/init-sly.el | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/.emacs.d/lisp/init-sly.el b/.emacs.d/lisp/init-sly.el index 97e65c01..385440c9 100644 --- a/.emacs.d/lisp/init-sly.el +++ b/.emacs.d/lisp/init-sly.el @@ -202,6 +202,13 @@ GUIX-COMMAND is the command to the guix executable, e.g. '(\"~/projects/guix/pre (insert ":-") (ambrevar/sly-insert-double-quotes)) +;; Glyphs +(defun ambrevar/insert-lambda () (interactive) (insert "\u03bb")) +(defun ambrevar/insert-cursive-f () (interactive) (insert "\u0192")) +(defun ambrevar/insert-right-arrow () (interactive) (insert "\u2192")) +(defun ambrevar/insert-alpha () (interactive) (insert "\u03b1")) +(defun ambrevar/insert-psy () (interactive) (insert "\u03c8")) + (with-eval-after-load 'sly-mrepl (set-face-attribute 'sly-mrepl-output-face nil :inherit 'default :foreground) (setq sly-mrepl-history-file-name (expand-file-name "sly-mrepl-history" user-emacs-directory)) @@ -209,7 +216,14 @@ GUIX-COMMAND is the command to the guix executable, e.g. '(\"~/projects/guix/pre (define-key sly-mrepl-mode-map (kbd "C-c M-p") 'sly-mrepl-set-package) (define-key sly-mrepl-mode-map (kbd "C-c M-o") 'sly-mrepl-clear-repl) (define-key sly-mrepl-mode-map (kbd "S-SPC") 'ambrevar/sly-insert-double-quotes) - (define-key sly-mrepl-mode-map (kbd "C-S-SPC") 'ambrevar/sly-insert-pipe)) + (define-key sly-mrepl-mode-map (kbd "C-S-SPC") 'ambrevar/sly-insert-pipe) + ;; Glyphs + (define-key sly-mrepl-mode-map (kbd "M-l") 'ambrevar/insert-lambda) + (define-key sly-mrepl-mode-map (kbd "M-f") 'ambrevar/insert-cursive-f) + (define-key sly-mrepl-mode-map (kbd "M-a") 'ambrevar/insert-alpha) + (define-key sly-mrepl-mode-map (kbd "M->") 'ambrevar/insert-right-arrow) + (define-key sly-mrepl-mode-map (kbd "") 'ambrevar/insert-right-arrow) + (define-key sly-mrepl-mode-map (kbd "C-M-y") 'ambrevar/insert-psy)) (defun ambrevar/sly-load-reload-system () (interactive)