diff options
Diffstat (limited to 'emacs/.config/emacs/lisp')
-rw-r--r-- | emacs/.config/emacs/lisp/kj-development.el | 13 | ||||
-rw-r--r-- | emacs/.config/emacs/lisp/kj-init.el | 145 |
2 files changed, 10 insertions, 148 deletions
diff --git a/emacs/.config/emacs/lisp/kj-development.el b/emacs/.config/emacs/lisp/kj-development.el index da0d328..2f31672 100644 --- a/emacs/.config/emacs/lisp/kj-development.el +++ b/emacs/.config/emacs/lisp/kj-development.el @@ -134,19 +134,18 @@ ;; :custom ;; (inferior-lisp-program "sbcl")) -(use-package slime - :custom - (inferior-lisp-program "sbcl") - :config +(use-package emacs :elpaca nil + :defer 1 + :after consult + :init + (load (expand-file-name "~/.cache/quicklisp/slime-helper.el")) + (setopt inferior-lisp-program "sbcl") (defvar kj/slime-history-ring nil) (defvar kj/slime-history-index nil) (add-to-list 'consult-mode-histories '(slime-repl-mode slime-repl-input-history slime-repl-input-history-position beginning-of-line)) - (load (expand-file-name "~/.cache/quicklisp/slime-helper.el")) - ;; Replace "sbcl" with the path to your implementation - (setq inferior-lisp-program "sbcl") (slime-setup '(slime-fancy slime-asdf))) (use-package exercism) 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: |