diff options
Diffstat (limited to 'gui/conf')
| -rw-r--r-- | gui/conf/init.el | 37 | ||||
| -rw-r--r-- | gui/conf/xmonad.hs | 6 |
2 files changed, 40 insertions, 3 deletions
diff --git a/gui/conf/init.el b/gui/conf/init.el new file mode 100644 index 0000000..27d5f8f --- /dev/null +++ b/gui/conf/init.el @@ -0,0 +1,37 @@ +(setq inhibit-startup-message t) +(setq initial-scratch-message nil) + +(setq backup-directory-alist `(("." . "~/.emacs.d/backup"))) + +(require 'package) +(package-initialize) +(eval-when-compile (require 'use-package)) + +(load-theme 'leuven) +(set-frame-font "Iosevka 11" nil t) +(menu-bar-mode -1) +(toggle-scroll-bar -1) +(tool-bar-mode -1) +(global-visual-line-mode t) + +(use-package org) + +(setq org-agenda-files (list "~/org/org.org")) + +(use-package evil) +(use-package evil-leader) +(use-package evil-org) + +(global-evil-leader-mode) +(evil-leader/set-leader ",") +(evil-mode 1) + +(add-hook 'org-mode-hook 'evil-org-mode) +(evil-org-set-key-theme '(navigation insert textobjects additional todo)) + +(setq org-fontify-whole-heading-line t) +(setq org-adapt-indentation nil) + +(evil-define-key 'normal org-mode-map + "J" 'org-next-visible-heading + "K" 'org-previous-visible-heading) diff --git a/gui/conf/xmonad.hs b/gui/conf/xmonad.hs index 31fb636..f5e8893 100644 --- a/gui/conf/xmonad.hs +++ b/gui/conf/xmonad.hs @@ -118,8 +118,8 @@ scratchpads host = (customFloating $ hideScreenBorder host sideBarLeft) , NS "messaging" "telegram-desktop" ((className =? "TelegramDesktop") <&&> (title /=? "Media viewer")) (customFloating $ hideScreenBorder host sideBarRight) - , NS "scratch" "kitty --class=scratch" (className =? "scratch") - (customFloating $ hideScreenBorder host dropDown) + , NS "notes" "emacs --title=notemacs ~/org/org.org" (title =? "notemacs") + (customFloating $ hideScreenBorder host dropDownLarge) ] hudMonitor host = monitor @@ -205,7 +205,7 @@ commonKeybindings host = , ("M-z" , namedScratchpadAction (scratchpads host) "literature") , ("M-r" , namedScratchpadAction (scratchpads host) "calculator") , ("M-m" , namedScratchpadAction (scratchpads host) "messaging") - , ("M-n" , namedScratchpadAction (scratchpads host) "scratch") ] ++ + , ("M-n" , namedScratchpadAction (scratchpads host) "notes") ] ++ -- workspace selection [ (p ++ [k] , windows $ f i) | (i, k) <- zip Main.workspaces ['1' .. '9'] |