diff options
Diffstat (limited to '.config/emacs/jd-emacs/jd-emacs-ui.el')
-rw-r--r-- | .config/emacs/jd-emacs/jd-emacs-ui.el | 154 |
1 files changed, 0 insertions, 154 deletions
diff --git a/.config/emacs/jd-emacs/jd-emacs-ui.el b/.config/emacs/jd-emacs/jd-emacs-ui.el deleted file mode 100644 index c8236af..0000000 --- a/.config/emacs/jd-emacs/jd-emacs-ui.el +++ /dev/null | |||
@@ -1,154 +0,0 @@ | |||
1 | ;;; Dotfiles --- Jakub Dlugosz emacs config | ||
2 | ;;; Commentary: | ||
3 | |||
4 | ;;; Code: | ||
5 | |||
6 | (setq inhibit-startup-message t) | ||
7 | (setq visible-bell t) | ||
8 | (scroll-bar-mode -1) | ||
9 | (tool-bar-mode -1) | ||
10 | (tooltip-mode -1) | ||
11 | (menu-bar-mode -1) | ||
12 | (set-fringe-mode 10) | ||
13 | |||
14 | (set-face-attribute 'default nil :font "Terminus" :height 100) | ||
15 | |||
16 | (add-hook 'prog-mode-hook 'menu-bar--display-line-numbers-mode-relative) | ||
17 | |||
18 | (global-set-key (kbd "<escape>") 'keyboard-escape-quit) | ||
19 | |||
20 | (global-prettify-symbols-mode 1) | ||
21 | |||
22 | (defalias 'yes-or-no-p 'y-or-n-p) | ||
23 | |||
24 | (use-package doom-themes | ||
25 | :config | ||
26 | (load-theme 'ujelly t)) | ||
27 | |||
28 | (use-package diminish) | ||
29 | |||
30 | (use-package hl-todo | ||
31 | :init | ||
32 | (setq hl-todo-keyword-faces | ||
33 | '(("TODO" . "#FF0000") | ||
34 | ("FIXME" . "#FF0000") | ||
35 | ("DEBUG" . "#A020F0"))) | ||
36 | :config | ||
37 | (global-hl-todo-mode 1)) | ||
38 | |||
39 | (defun jd/switch-buffer () | ||
40 | (interactive) | ||
41 | (let ((completion-regexp-list '("\\`[^*]" | ||
42 | "\\`\\([^T]\\|T\\($\\|[^A]\\|A\\($\\|[^G]\\|G\\($\\|[^S]\\|S.\\)\\)\\)\\).*"))) | ||
43 | (call-interactively 'counsel-switch-buffer))) | ||
44 | |||
45 | (defvar jd/load-theme-hook nil) | ||
46 | (defun jd/load-theme () | ||
47 | (interactive) | ||
48 | (counsel-load-theme) | ||
49 | (run-hooks 'jd/load-theme-hook)) | ||
50 | |||
51 | (use-package ivy | ||
52 | :diminish | ||
53 | :bind | ||
54 | (("C-s" . swiper) | ||
55 | :map ivy-minibuffer-map | ||
56 | ("C-k" . ivy-previous-line) | ||
57 | ("C-j" . ivy-next-line) | ||
58 | :map ivy-switch-buffer-map | ||
59 | ("C-k" . ivy-previous-line)) | ||
60 | :config | ||
61 | (ivy-mode 1)) | ||
62 | |||
63 | (use-package counsel | ||
64 | :config | ||
65 | (counsel-mode 1)) | ||
66 | |||
67 | (jd/leader-key-def | ||
68 | "t" '(:ignore t :which-key "Toggle") | ||
69 | "tT" '(toggle-truncate-lines :which-key "Toggle truncate lines") | ||
70 | "tt" '(jd/load-theme :which-key "Choose theme")) | ||
71 | |||
72 | (jd/leader-key-def | ||
73 | "bb" '(jd/switch-buffer :which-key "Buffer switch") | ||
74 | "ba" '(counsel-switch-buffer :which-key "Buffer switch") | ||
75 | "b" '(:ignore t :which-key "Buffer") | ||
76 | "," '(counsel-switch-buffer :which-key "Buffer switch")) | ||
77 | |||
78 | (use-package which-key | ||
79 | :diminish | ||
80 | :config | ||
81 | (which-key-mode) | ||
82 | (setq which-key-idle-delay 0.3)) | ||
83 | |||
84 | (use-package all-the-icons) | ||
85 | |||
86 | (use-package doom-modeline | ||
87 | ; :init (doom-modeline-mode 0) | ||
88 | :custom ((doom-modeline-height 15))) | ||
89 | |||
90 | (use-package hydra | ||
91 | :defer t) | ||
92 | |||
93 | (defun jd/text-scale-increase () | ||
94 | (interactive) | ||
95 | (let ((old-face-attribute (face-attribute 'default :height))) | ||
96 | (set-face-attribute 'default nil :height (+ old-face-attribute 10)))) | ||
97 | |||
98 | (defun jd/text-scale-decrease () | ||
99 | (interactive) | ||
100 | (let ((old-face-attribute (face-attribute 'default :height))) | ||
101 | (set-face-attribute 'default nil :height (- old-face-attribute 10)))) | ||
102 | |||
103 | (defhydra hydra-resize-window (:timeout 4) | ||
104 | ("h" evil-window-decrease-width "<") | ||
105 | ("l" evil-window-increase-width ">") | ||
106 | ("k" evil-window-decrease-height "^") | ||
107 | ("j" evil-window-increase-height "v") | ||
108 | ("q" nil "finished" :exit t)) | ||
109 | |||
110 | (defhydra hydra-text-scale-global (:timeout 4) | ||
111 | "scale text" | ||
112 | ("j" jd/text-scale-increase "in") | ||
113 | ("k" jd/text-scale-decrease "out") | ||
114 | ("q" nil "finished" :exit t)) | ||
115 | |||
116 | (defhydra hydra-text-scale (:timeout 4) | ||
117 | "scale text" | ||
118 | ("j" text-scale-increase "in") | ||
119 | ("k" text-scale-decrease "out") | ||
120 | ("q" nil "finished" :exit t)) | ||
121 | |||
122 | (jd/leader-key-def | ||
123 | "tS" '(hydra-text-scale-global/body :which-key "Scale text") | ||
124 | "ts" '(hydra-text-scale/body :which-key "Scale text")) | ||
125 | |||
126 | (use-package beacon | ||
127 | :config | ||
128 | (beacon-mode 1)) | ||
129 | |||
130 | (jd/leader-key-def | ||
131 | "f" '(:ignore t :which-key "Files") | ||
132 | "fs" '(save-buffer :which-key "File save") | ||
133 | "." '(find-file :which-key "Find file") | ||
134 | "ff" '(find-file :which-key "Find file")) | ||
135 | |||
136 | (jd/leader-key-def | ||
137 | "e" '(:ignore t :which-key "Eval") | ||
138 | "eb" '(eval-buffer :which-key "Eval buffer") | ||
139 | "ee" '(eval-defun :which-key "Eval defun")) | ||
140 | |||
141 | (jd/leader-key-def | ||
142 | :keymaps '(visual) | ||
143 | "er" '(eval-region :which-key "Eval region")) | ||
144 | |||
145 | (defun jd/kill-other-buffers () | ||
146 | (interactive) | ||
147 | (mapc 'kill-buffer (cdr (buffer-list (current-buffer))))) | ||
148 | |||
149 | (jd/leader-key-def | ||
150 | "bK" '(jd/kill-other-buffers :which-key "Kill other buffers") | ||
151 | "bk" '(kill-current-buffer :which-key "Kill buffer") | ||
152 | "bB" '(ibuffer :which-key "Open ibuffer")) | ||
153 | |||
154 | ;;; jd-ui.el ends here | ||