diff options
| -rw-r--r-- | .emacs.d/init.el | 9 | ||||
| -rwxr-xr-x | 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 "<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) |