clean up modeline and packages; add conditional SLIME

This commit is contained in:
MitchMarq42 2022-07-11 17:59:39 -08:00
parent 4a2bbd2741
commit 265512dd17
3 changed files with 12 additions and 31 deletions

View File

@ -65,7 +65,7 @@
;; straight.el: the better package manager? ;; straight.el: the better package manager?
;; minified bootstrap (split lines if you want) (or not) ;; minified bootstrap (split lines if you want) (or not)
(defvar bootstrap-version) (let ((bootstrap-file (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory)) (bootstrap-version 5)) (unless (file-exists-p bootstrap-file) (with-current-buffer (url-retrieve-synchronously "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el" 'silent 'inhibit-cookies) (goto-char (point-max)) (eval-print-last-sexp))) (load bootstrap-file nil 'nomessage)) (straight-use-package 'use-package) (setq straight-use-package-by-default t) (defvar bootstrap-version) (let ((bootstrap-file (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory)) (bootstrap-version 5)) (unless (file-exists-p bootstrap-file) (with-current-buffer (url-retrieve-synchronously "https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el" 'silent 'inhibit-cookies) (goto-char (point-max)) (eval-print-last-sexp))) (load bootstrap-file nil 'nomessage)) (straight-use-package 'use-package) (setq straight-use-package-by-default t)
(require 'mitch-packages) (require 'mitch-packages)

View File

@ -174,15 +174,7 @@
:prefix "SPC 4" :prefix "SPC 4"
"v" 'multi-vterm-other-window)) "v" 'multi-vterm-other-window))
;; Better modeline? ;; Better modeline? Better modeline.
(use-package powerline
:init
:custom
(powerline-default-separator 'utf-8)
(powerline-utf-8-separator-left 57532)
(powerline-utf-8-separator-right 57534)
(powerline-display-hud nil)
(powerline-gui-use-vcs-glyph t))
(use-package airline-themes (use-package airline-themes
:custom :custom
(airline-cursor-colors nil) (airline-cursor-colors nil)
@ -190,23 +182,13 @@
(airline-eshell-colors t) (airline-eshell-colors t)
(airline-shortened-directory-length 20) (airline-shortened-directory-length 20)
(airline-utf-glyph-separator-left 9585) (airline-utf-glyph-separator-left 9585)
;; (airline-utf-glyph-separator-left "")
(airline-utf-glyph-separator-right 9586) (airline-utf-glyph-separator-right 9586)
;; (airline-utf-glyph-separator-left "")
;; (airline-utf-glyph-separator-right "") ;; (airline-utf-glyph-separator-right "")
:after powerline :custom-face (mode-line ((t (:box (:line-width 2 :style released-button)))))
;; :after doom-modeline
:config :config
(load-theme 'airline-ravenpower t)
;; (load-theme 'airline-kolor t) ;; (load-theme 'airline-kolor t)
) (load-theme 'airline-ravenpower t))
(use-package all-the-icons
:init
(unless (member "all-the-icons" (font-family-list))
(all-the-icons-install-fonts t)))
;; (use-package doom-modeline
;; :custom-face (mode-line ((t (:box "#303030"))))
;; :custom (doom-modeline-height 15)
;; :config (doom-modeline-mode))
;; Custom Theme. ;; Custom Theme.
;; Not to be confused with a color theme, or a color scheme, or a custom scheme. ;; Not to be confused with a color theme, or a color scheme, or a custom scheme.
@ -218,11 +200,7 @@
:config :config
(tooltip-mode -1) (tooltip-mode -1)
(menu-bar-mode -1) (menu-bar-mode -1)
(load-theme 'mitch t) (load-theme 'mitch t))
)
;; (use-package doom-themes
;; :init (load-theme 'doom-one t))
;; (load-theme 'modus-vivendi t)
;; (use-package yascroll ;; (use-package yascroll
;; :diminish ;; :diminish
@ -303,8 +281,6 @@
(ob-powershell-powershell-command "pwsh")) (ob-powershell-powershell-command "pwsh"))
(use-package company-org-block (use-package company-org-block
:after (org company)) :after (org company))
(use-package org-modern
:hook (org-mode . org-modern-mode))
(use-package ox-hugo (use-package ox-hugo
:after ox) :after ox)
@ -654,5 +630,10 @@
:straight (:type git :repo "https://git.mitchmarq42.xyz/mitch/ani-el" :straight (:type git :repo "https://git.mitchmarq42.xyz/mitch/ani-el"
:files ("ani-el.el" "lib"))) :files ("ani-el.el" "lib")))
(use-package slime
:if (file-exists-p (expand-file-name "~/quicklisp/slime-helper.el"))
:custom (inferior-lisp-program "sbcl")
:init (load (expand-file-name "~/quicklisp/slime-helper.el")))
(provide 'mitch-packages) (provide 'mitch-packages)
;;; mitch-packages.el ends here ;;; mitch-packages.el ends here

View File

@ -125,7 +125,7 @@
(transient-heading (:inherit 'default :foreground mitch-magenta :weight 'bold)) (transient-heading (:inherit 'default :foreground mitch-magenta :weight 'bold))
(rainbow-delimiters-depth-1-face (:foreground mitch-light-magenta)) (rainbow-delimiters-depth-1-face (:foreground mitch-light-magenta))
(rainbow-delimiters-depth-2-face (:foreground mitch-magenta :weight 'normal)) (rainbow-delimiters-depth-2-face (:foreground mitch-magenta :weight 'normal))
(vertical-border (:foreground mitch-light-magenta :weight 'bold)) (vertical-border (:foreground mitch-mid-violet :weight 'bold))
(fringe (:inherit 'default)) (fringe (:inherit 'default))
(whitespace-space (:foreground mitch-black)) (whitespace-space (:foreground mitch-black))
(whitespace-tab (:foreground mitch-black)) (whitespace-tab (:foreground mitch-black))