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. --- org/emacs.org | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'org') diff --git a/org/emacs.org b/org/emacs.org index c39bf50..7b0a5ba 100755 --- a/org/emacs.org +++ b/org/emacs.org @@ -486,7 +486,7 @@ Hook with ~dired-mode~ (interactive) (start-process-shell-command "setxkbmap" nil "setxkbmap gr")) - + (defun apollo/exwm-update-class () (exwm-workspace-rename-buffer exwm-class-name)) @@ -509,10 +509,11 @@ Hook with ~dired-mode~ (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)) #+end_src ** Key-bindings #+begin_src emacs-lisp @@ -533,6 +534,10 @@ Hook with ~dired-mode~ (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