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.

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 "<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)
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)