emacs: lazy load some config

This commit is contained in:
FollieHiyuki 2021-02-16 15:55:18 +03:00
parent b88ea2595d
commit fe71bd1a49
No known key found for this signature in database
GPG Key ID: 813CF484F4993419
2 changed files with 23 additions and 16 deletions

View File

@ -16,14 +16,16 @@
(setq inhibit-compacting-font-caches t) (setq inhibit-compacting-font-caches t)
;; Emoji ;; Emoji
(setq emojify-display-style 'unicode) (after! emojify
(setq emojify-display-style 'unicode))
;; Theme ;; Theme
(setq doom-theme 'doom-nord) (setq doom-theme 'doom-nord)
(setq doom-themes-enable-bold t (setq doom-themes-enable-bold t
doom-themes-enable-italic t) doom-themes-enable-italic t)
(setq doom-themes-treemacs-theme 'doom-colors (after! treemacs
doom-themes-treemacs-enable-variable-pitch nil) (setq doom-themes-treemacs-theme 'doom-colors
doom-themes-treemacs-enable-variable-pitch nil))
;; Pick an image for dashboard ;; Pick an image for dashboard
;;(defun random-choice (items) ;;(defun random-choice (items)
@ -63,10 +65,18 @@
ranger-dont-show-binary t)) ranger-dont-show-binary t))
;; Projectile ;; Projectile
(setq projectile-project-search-path '("~/Code/") (after! projectile
projectile-auto-discover nil) (setq projectile-project-search-path '("~/Code/")
projectile-auto-discover nil))
;; lsp ;; Counsel
(after! counsel
(setq counsel-linux-app-format-function #'counsel-linux-app-format-function-name-only))
(map! "C-M-j" 'counsel-switch-buffer)
(map! :map minibuffer-local-map
"C-r" 'counsel-minibuffer-history)
;; Completion + lsp
(after! company (after! company
(setq company-idle-delay 0.5 (setq company-idle-delay 0.5
company-minimum-prefix-length 2) company-minimum-prefix-length 2)
@ -81,7 +91,8 @@
(after! lsp-clangd (set-lsp-priority! 'clangd 2)) ;; Use clangd instead of default ccls (after! lsp-clangd (set-lsp-priority! 'clangd 2)) ;; Use clangd instead of default ccls
;; Quicker which-key ;; Quicker which-key
(setq which-key-idle-delay 0.5) (after! which-key
(setq which-key-idle-delay 0.5))
;; Org mode ;; Org mode
(setq org-directory "~/Documents/Org/" (setq org-directory "~/Documents/Org/"
@ -128,10 +139,6 @@
;; "e n" #'emms-next) ;; "e n" #'emms-next)
;; Modeline ;; Modeline
(setq display-time-day-and-date t)
(display-time-mode 1)
(if (not (equal "Battery status not available" (battery)))
(display-battery-mode 1))
;;(emms-mode-line 1) ;;(emms-mode-line 1)
(setq doom-modeline-unicode-fallback t) (setq doom-modeline-unicode-fallback t)

View File

@ -92,7 +92,7 @@ You can find the original one at `exwm-config-ido-buffer-window-other-frame'."
(add-hook 'exwm-manage-finish-hook #'follie/configure-window-by-class) (add-hook 'exwm-manage-finish-hook #'follie/configure-window-by-class)
;; Automatically move EXWM buffer to current workspace ;; Automatically move EXWM buffer to current workspace
(setq exwm-layout-show-all-buffers t) ;;(setq exwm-layout-show-all-buffers t)
;; Display all buffers in every workspace buffer list ;; Display all buffers in every workspace buffer list
(setq exwm-workspace-show-all-buffers t) (setq exwm-workspace-show-all-buffers t)
@ -107,7 +107,7 @@ You can find the original one at `exwm-config-ido-buffer-window-other-frame'."
;; System tray on minibuffer ;; System tray on minibuffer
(require 'exwm-systemtray) (require 'exwm-systemtray)
;;(setq exwm-systemtray-height 12) (setq exwm-systemtray-height 12)
(exwm-systemtray-enable) (exwm-systemtray-enable)
;; Automatically send cursor to the selected display ;; Automatically send cursor to the selected display
@ -166,12 +166,12 @@ You can find the original one at `exwm-config-ido-buffer-window-other-frame'."
(exwm-config-ido)) (exwm-config-ido))
;; Control dunst ;; Control dunst
(defun efs/disable-desktop-notifications () (defun follie/disable-desktop-notifications ()
(interactive) (interactive)
(start-process-shell-command "notify-send" nil "notify-send \"DUNST_COMMAND_PAUSE\"")) (start-process-shell-command "notify-send" nil "notify-send \"DUNST_COMMAND_PAUSE\""))
(defun efs/enable-desktop-notifications () (defun follie/enable-desktop-notifications ()
(interactive) (interactive)
(start-process-shell-command "notify-send" nil "notify-send \"DUNST_COMMAND_RESUME\"")) (start-process-shell-command "notify-send" nil "notify-send \"DUNST_COMMAND_RESUME\""))
(defun efs/toggle-desktop-notifications () (defun follie/toggle-desktop-notifications ()
(interactive) (interactive)
(start-process-shell-command "notify-send" nil "notify-send \"DUNST_COMMAND_TOGGLE\"")) (start-process-shell-command "notify-send" nil "notify-send \"DUNST_COMMAND_TOGGLE\""))