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 +++++++-- org/emacs.org | 11 ++++++++--- 2 files changed, 15 insertions(+), 5 deletions(-) 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) 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