diff options
Diffstat (limited to '.emacs.d/jd/jd-ui.el')
-rwxr-xr-x | .emacs.d/jd/jd-ui.el | 102 |
1 files changed, 102 insertions, 0 deletions
diff --git a/.emacs.d/jd/jd-ui.el b/.emacs.d/jd/jd-ui.el new file mode 100755 index 0000000..4c8e04b --- /dev/null +++ b/.emacs.d/jd/jd-ui.el | |||
@@ -0,0 +1,102 @@ | |||
1 | |||
2 | ;; Dotfiles --- Jakub Dlugosz emacs config | ||
3 | ;;; Commentary: | ||
4 | |||
5 | ;;; Code: | ||
6 | |||
7 | (setq inhibit-startup-message t) | ||
8 | (setq visible-bell t) | ||
9 | (scroll-bar-mode -1) | ||
10 | (tool-bar-mode -1) | ||
11 | (tooltip-mode -1) | ||
12 | (menu-bar-mode -1) | ||
13 | (set-fringe-mode 10) | ||
14 | |||
15 | (set-face-attribute 'default nil :font "Terminus" :height 100) | ||
16 | |||
17 | (add-hook 'prog-mode-hook 'menu-bar--display-line-numbers-mode-relative) | ||
18 | |||
19 | (global-set-key (kbd "<escape>") 'keyboard-escape-quit) | ||
20 | |||
21 | (global-prettify-symbols-mode 1) | ||
22 | |||
23 | (defalias 'yes-or-no-p 'y-or-n-p) | ||
24 | |||
25 | (jd/use-package doom-themes "emacs-doom-themes" | ||
26 | :config | ||
27 | ;; (load-theme 'manoj-black t) | ||
28 | ) | ||
29 | |||
30 | (load-theme 'manoj-dark t) | ||
31 | |||
32 | (jd/use-package diminish "emacs-diminish") | ||
33 | |||
34 | (jd/use-package hl-todo "emacs-hl-todo" | ||
35 | :init | ||
36 | (setq hl-todo-keyword-faces | ||
37 | '(("TODO" . "#FF0000") | ||
38 | ("FIXME" . "#FF0000") | ||
39 | ("DEBUG" . "#A020F0"))) | ||
40 | :config | ||
41 | (global-hl-todo-mode 1)) | ||
42 | |||
43 | (defun jd/switch-buffer () | ||
44 | (interactive) | ||
45 | (let ((completion-regexp-list '("\\`[^*]" | ||
46 | "\\`\\([^T]\\|T\\($\\|[^A]\\|A\\($\\|[^G]\\|G\\($\\|[^S]\\|S.\\)\\)\\)\\).*"))) | ||
47 | (call-interactively 'counsel-switch-buffer))) | ||
48 | |||
49 | (defvar jd/load-theme-hook nil) | ||
50 | (defun jd/load-theme () | ||
51 | (interactive) | ||
52 | (counsel-load-theme) | ||
53 | (run-hooks 'jd/load-theme-hook)) | ||
54 | |||
55 | (jd/use-package ivy "emacs-ivy" | ||
56 | :diminish | ||
57 | :bind | ||
58 | (("C-s" . swiper) | ||
59 | ;; :map ivy-minibuffer-map | ||
60 | ;; ("C-k" . ivy-previous-line) | ||
61 | ;; ("C-j" . ivy-next-line) | ||
62 | ;; :map ivy-switch-buffer-map | ||
63 | ;; ("C-k" . ivy-previous-line) | ||
64 | ) | ||
65 | :config | ||
66 | (ivy-mode 1)) | ||
67 | |||
68 | (jd/use-package counsel "emacs-counsel" | ||
69 | :config | ||
70 | (counsel-mode 1) | ||
71 | |||
72 | (jd/leader-key-def | ||
73 | "t" '(:ignore t :which-key "Toggle") | ||
74 | "tT" '(toggle-truncate-lines :which-key "Toggle truncate lines") | ||
75 | "tt" '(jd/load-theme :which-key "Choose theme")) | ||
76 | |||
77 | (jd/leader-key-def | ||
78 | "bb" '(jd/switch-buffer :which-key "Buffer switch") | ||
79 | "ba" '(counsel-switch-buffer :which-key "Buffer switch") | ||
80 | "b" '(:ignore t :which-key "Buffer") | ||
81 | "," '(counsel-switch-buffer :which-key "Buffer switch"))) | ||
82 | |||
83 | (jd/use-package which-key "emacs-which-key" | ||
84 | :diminish | ||
85 | :config | ||
86 | (which-key-mode) | ||
87 | (setq which-key-idle-delay 0.3)) | ||
88 | |||
89 | (jd/use-package all-the-icons "emacs-all-the-icons") | ||
90 | |||
91 | (jd/use-package doom-modeline "emacs-doom-modeline" | ||
92 | ; :init (doom-modeline-mode 0) | ||
93 | :custom ((doom-modeline-height 15))) | ||
94 | |||
95 | (jd/use-package beacon "emacs-beacon" | ||
96 | :config | ||
97 | (beacon-mode 1)) | ||
98 | |||
99 | |||
100 | (provide 'jd-ui) | ||
101 | |||
102 | ;;; jd-ui.el ends here | ||