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.

1 files changed, 7 insertions, 2 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 "<escape>") '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)