diff options
Diffstat (limited to 'emacs/.config/emacs/lisp/kj-init.el')
-rw-r--r-- | emacs/.config/emacs/lisp/kj-init.el | 145 |
1 files changed, 4 insertions, 141 deletions
diff --git a/emacs/.config/emacs/lisp/kj-init.el b/emacs/.config/emacs/lisp/kj-init.el index 837bdf9..40dee7d 100644 --- a/emacs/.config/emacs/lisp/kj-init.el +++ b/emacs/.config/emacs/lisp/kj-init.el @@ -1,140 +1,5 @@ ;;; -*- lexical-binding: t; -*- -(setq user-full-name "KJ Orbekk" - user-mail-address "kj@orbekk.com") - -(defvar kj/cache-dir "~/.cache/emacs") - -(setq initial-scratch-message nil) - -(setq switch-to-buffer-obey-display-actions t) -(setq switch-to-buffer-in-dedicated-window 'pop) -(setq even-window-sizes 'width-only) - -(setq custom-file (expand-file-name "emacs-custom.el" user-emacs-directory)) -(load custom-file :noerror t) - -(setq bookmark-file (expand-file-name "boomarks" kj/cache-dir)) - -(setq fast-but-imprecise-scrolling t) - -(setq use-short-answers t) - -(global-hl-line-mode 1) -(global-auto-revert-mode 1) - -(setq outline-minor-mode-cycle t - outline-minor-mode-highlight 'override) - -(setq visible-bell t - ring-bell-function 'ignore) - -(setq auto-save-list-file-prefix (expand-file-name "auto-save-list/.saves-" kj/cache-dir)) - -(use-package wombat-theme :elpaca nil - :disabled - :init - (load-theme 'wombat) - :config - (custom-theme-set-faces - 'wombat - '(default ((t :background "#111111"))) - '(ansi-color-black ((t :background "#000000"))) - '(hl-line ((t :inherit () :background "#242424"))))) - -(use-package modus-themes - :init - :disabled - (load-theme 'modus-operandi-tinted) - (load-theme 'modus-vivendi-tinted t t) - :config - (custom-theme-set-faces - 'modus-vivendi-tinted - '(avy-lead-face ((t :inherit (bold modus-themes-subtle-blue)))) - '(avy-lead-face-0 ((t :inherit (bold modus-themes-subtle-cyan)))) - '(avy-lead-face-1 ((t :inherit (bold modus-themes-subtle-green)))) - '(avy-lead-face-2 ((t :inherit (bold modus-themes-subtle-magenta)))))) - -(use-package deeper-blue :elpaca nil - :init - (load-theme 'deeper-blue)) - -(use-package doom-themes) - -(setq alert-default-style 'libnotify) - -(use-package all-the-icons - :if (display-graphic-p)) -(setq inhibit-compacting-font-caches t) -(setq use-dialog-box nil) -(setq display-time-24hr-format t) - -(use-package emacs - :elpaca nil - :defer 5 - :init - (require 'battery) - (when (and battery-status-function - (not (string-match-p "unknown" - (battery-format "%B" - (funcall battery-status-function))))) - (display-battery-mode 1))) -(setopt display-time-default-load-average nil) - -(display-time-mode 1) - -(use-package doom-modeline - :ensure t - :disabled - :init (doom-modeline-mode 1) - :config - (setq doom-modeline-buffer-encoding 'nondefault)) - -(use-package emacs - :elpaca nil - :defer 1 - :init - (defvar kj/minor-mode-alist-overrides - '((ws-butler "") - (gcmh-mode "") - (editorconfig-mode "") - (yas-minor-mode "") - (selected-minor-mode "") - (anzu-mode "") - (projectile-mode "") - (eldoc-mode "") - (mixed-pitch-mode "") - (ws-butler-mode "") - (which-key-mode ""))) - (defun kj/clean-mode-line () - (interactive) - (dolist (override kj/minor-mode-alist-overrides) - (if-let ((e (assoc (car override) minor-mode-alist))) - (setf (nth 1 e) (nth 1 override))))) - (add-to-list 'change-major-mode-hook 'kj/clean-mode-line)) - -(use-package emojify - :bind - (("C-c C-i C-e" . emojify-insert-emoji)) - :hook (after-init . global-emojify-mode) - :config - (emojify-set-emoji-styles '(unicode))) - -(setq-default show-trailing-whitespace t) -(dolist (mode '(calendar-mode-hook - eshell-mode-hook - term-mode-hook - comint-mode-hook - completion-list-mode)) - (add-hook mode - (defun kj/disable-trailing-whitespace () - (setq show-trailing-whitespace nil)))) - -;; Deletes trailing whitespace on changed lines only. -(use-package ws-butler - :diminish ws-butler-mode - :hook (prog-mode . ws-butler-mode)) - ;; `M-x shell` settings (setq shell-prompt-pattern "^[^#$%>\n]*[#$%>❯] *" explicit-shell-file-name "zsh" @@ -1055,10 +920,8 @@ (gethash 'name (car (gethash 'artists track))) (gethash 'name track)))))))))) -;; Enabled commands -(put 'narrow-to-region 'disabled nil) -(put 'downcase-region 'disabled nil) -(put 'upcase-region 'disabled nil) -(put 'list-timers 'disabled nil) - (provide 'kj-init) + +;; Local Variables: +;; eval: (outline-minor-mode 1) +;; End: |