From dbdabf1c2d3a3188b0805529e47373275cb28362 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Wed, 5 Apr 2023 19:06:15 +0300 Subject: emacs: Create keimenografos function, add Morfi prefix-command Create keimenografos, a scratch text mode and Morfi as a prefix command for thanos/applications bound at "c" key. Morfi is used for "creation" commands. --- .emacs.d/init.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to '.emacs.d') diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 4ec97fc..52e1174 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -461,10 +461,11 @@ Contains the list of packages that need to be installed.") (start-process-shell-command "polybar" nil "polybar main"))) -(defun create-scratch-writter-buffer nil +(defun create-keimenografos () "create a scratch buffer" (interactive) - (switch-to-buffer (get-buffer-create "*scratch-writter*"))) + (switch-to-buffer (get-buffer-create "*Keimenografos*")) + (text-mode)) (global-set-key (kbd "") 'keyboard-escape-quit) (global-set-key (kbd "s-=") 'text-scale-increase) @@ -483,6 +484,10 @@ Contains the list of packages that need to be installed.") (define-key thanos/applications-map (kbd "f") 'elfeed) (global-set-key (kbd "C-c a") 'thanos/applications-map) +(define-prefix-command 'Morfi) +(define-key thanos/applications-map (kbd "c") 'Morfi) +(define-key Morfi (kbd "t") 'create-keimenografos) + (defvar thanos/vterm-map (make-sparse-keymap)) (define-prefix-command 'thanos/vterm-map) -- cgit v1.2.3