diff options
Diffstat (limited to '.emacs.d/jd/jd-ui.el')
-rwxr-xr-x | .emacs.d/jd/jd-ui.el | 100 |
1 files changed, 0 insertions, 100 deletions
diff --git a/.emacs.d/jd/jd-ui.el b/.emacs.d/jd/jd-ui.el deleted file mode 100755 index 992ba17..0000000 --- a/.emacs.d/jd/jd-ui.el +++ /dev/null | |||
@@ -1,100 +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-frame-parameter (selected-frame) 'alpha '(92 . 92)) | ||
15 | (add-to-list 'default-frame-alist '(alpha . (92 . 92))) | ||
16 | |||
17 | (custom-set-faces | ||
18 | '(default ((t (:inherit nil :height 125 :family "Terminus")))) | ||
19 | '(line-number ((t (:inherit nil :height 125 :family "Terminus")))) | ||
20 | '(line-number-current-line ((t (:inherit nil :height 125 :family "Terminus"))))) | ||
21 | |||
22 | (add-hook 'prog-mode-hook 'menu-bar--display-line-numbers-mode-relative) | ||
23 | |||
24 | (global-set-key (kbd "<escape>") 'keyboard-escape-quit) | ||
25 | |||
26 | (global-prettify-symbols-mode 1) | ||
27 | |||
28 | (defalias 'yes-or-no-p 'y-or-n-p) | ||
29 | |||
30 | (require 'diminish) | ||
31 | |||
32 | (use-package doom-modeline | ||
33 | :guix-package "emacs-doom-modeline" | ||
34 | :config | ||
35 | (doom-modeline-mode)) | ||
36 | |||
37 | (use-package solarized-theme | ||
38 | :guix-package "emacs-solarized-theme" | ||
39 | :config | ||
40 | (load-theme 'solarized-dark-high-contrast t)) | ||
41 | |||
42 | |||
43 | (use-package diminish | ||
44 | :guix-package "emacs-diminish") | ||
45 | |||
46 | (use-package hl-todo | ||
47 | :guix-package "emacs-hl-todo" | ||
48 | :init | ||
49 | (setq hl-todo-keyword-faces | ||
50 | '(("TODO" . "#FF0000") | ||
51 | ("FIXME" . "#FF0000") | ||
52 | ("DEBUG" . "#A020F0"))) | ||
53 | :config | ||
54 | (global-hl-todo-mode 1)) | ||
55 | |||
56 | (defvar jd/load-theme-hook nil) | ||
57 | (defun jd/load-theme () | ||
58 | (interactive) | ||
59 | (counsel-load-theme) | ||
60 | (run-hooks 'jd/load-theme-hook)) | ||
61 | |||
62 | (use-package ivy | ||
63 | :guix-package "emacs-ivy" | ||
64 | :diminish | ||
65 | :bind | ||
66 | (("C-s" . swiper)) | ||
67 | :config | ||
68 | (ivy-mode 1)) | ||
69 | |||
70 | (use-package counsel | ||
71 | :guix-package "emacs-counsel" | ||
72 | :diminish t | ||
73 | :config | ||
74 | (counsel-mode 1)) | ||
75 | |||
76 | (use-package which-key | ||
77 | :guix-package "emacs-which-key" | ||
78 | :diminish | ||
79 | :config | ||
80 | (which-key-mode) | ||
81 | (setq which-key-idle-delay 0.3)) | ||
82 | |||
83 | (use-package all-the-icons | ||
84 | :guix-package "emacs-all-the-icons") | ||
85 | |||
86 | (use-package beacon | ||
87 | :guix-package "emacs-beacon" | ||
88 | :config | ||
89 | (beacon-mode 1)) | ||
90 | |||
91 | (setq display-time-string-forms | ||
92 | '(" " 24-hours ":" minutes " ")) | ||
93 | |||
94 | (when jd/exwm-p | ||
95 | (display-battery-mode) | ||
96 | (display-time-mode)) | ||
97 | |||
98 | (provide 'jd-ui) | ||
99 | |||
100 | ;;; jd-ui.el ends here | ||