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, 8 insertions, 3 deletions

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)