SLY: Bind keys for glyphs.
parent
f82c334435
commit
f78d4f9121
|
@ -202,6 +202,13 @@ GUIX-COMMAND is the command to the guix executable, e.g. '(\"~/projects/guix/pre
|
||||||
(insert ":-")
|
(insert ":-")
|
||||||
(ambrevar/sly-insert-double-quotes))
|
(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
|
(with-eval-after-load 'sly-mrepl
|
||||||
(set-face-attribute 'sly-mrepl-output-face nil :inherit 'default :foreground)
|
(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))
|
(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-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 "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 "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 "<M-right>") 'ambrevar/insert-right-arrow)
|
||||||
|
(define-key sly-mrepl-mode-map (kbd "C-M-y") 'ambrevar/insert-psy))
|
||||||
|
|
||||||
(defun ambrevar/sly-load-reload-system ()
|
(defun ambrevar/sly-load-reload-system ()
|
||||||
(interactive)
|
(interactive)
|
||||||
|
|
Loading…
Reference in New Issue