diff --git a/lisp/mitch-packages.el b/lisp/mitch-packages.el index 184c78f..4c4a8ab 100644 --- a/lisp/mitch-packages.el +++ b/lisp/mitch-packages.el @@ -374,9 +374,9 @@ targets." ;; (nlinum-relative-redisplay-delay 0)) (use-package linum-relative :straight (:host nil - :type git - :repo - "https://git.mitchmarq42.xyz/mitch/linum-relative-justify.el") + :type git + :repo + "https://git.mitchmarq42.xyz/mitch/linum-relative-justify.el") :diminish :custom (linum-relative-current-symbol "") :init @@ -470,65 +470,65 @@ targets." telephone-line-primary-right-separator 'telephone-line-identity-right telephone-line-secondary-right-separator 'telephone-line-identity-hollow-right) (setq telephone-line-lhs - '((evil . (telephone-line-evil-tag-segment)) - (accent . (telephone-line-vc-segment - telephone-line-erc-modified-channels-segment - telephone-line-process-segment)) - (nil . (telephone-line-minor-mode-segment - telephone-line-buffer-segment)))) + '((evil . (telephone-line-evil-tag-segment)) + (accent . (telephone-line-vc-segment + telephone-line-erc-modified-channels-segment + telephone-line-process-segment)) + (nil . (telephone-line-minor-mode-segment + telephone-line-buffer-segment)))) (setq telephone-line-rhs - '((nil . (telephone-line-misc-info-segment)) - (accent . (telephone-line-major-mode-segment)) - (evil . (telephone-line-airline-position-segment)))) + '((nil . (telephone-line-misc-info-segment)) + (accent . (telephone-line-major-mode-segment)) + (evil . (telephone-line-airline-position-segment)))) (defun airline/telephone-line-evil-face (active) "Return an appropriate face for the current mode." (let* ((evil-mode-active (featurep 'evil)) - (outer-face - (if active - (if evil-mode-active - (cond ((eq evil-state (intern "normal")) 'airline-normal-outer) - ((eq evil-state (intern "insert")) 'airline-insert-outer) - ((eq evil-state (intern "visual")) 'airline-visual-outer) - ((eq evil-state (intern "replace")) 'airline-replace-outer) - ((eq evil-state (intern "emacs")) 'airline-emacs-outer) - (t 'airline-normal-outer)) - 'airline-normal-outer) - 'powerline-inactive1))) + (outer-face + (if active + (if evil-mode-active + (cond ((eq evil-state (intern "normal")) 'airline-normal-outer) + ((eq evil-state (intern "insert")) 'airline-insert-outer) + ((eq evil-state (intern "visual")) 'airline-visual-outer) + ((eq evil-state (intern "replace")) 'airline-replace-outer) + ((eq evil-state (intern "emacs")) 'airline-emacs-outer) + (t 'airline-normal-outer)) + 'airline-normal-outer) + 'powerline-inactive1))) outer-face)) (defun airline/telephone-line-accent-face (active) "Return an appropriate face for the current mode." (let* ((evil-mode-active (featurep 'evil)) - (inner-face - (if active - (if evil-mode-active - (cond ((eq evil-state (intern "normal")) 'airline-normal-inner) - ((eq evil-state (intern "insert")) 'airline-insert-inner) - ((eq evil-state (intern "visual")) 'airline-visual-inner) - ((eq evil-state (intern "replace")) 'airline-replace-inner) - ((eq evil-state (intern "emacs")) 'airline-emacs-inner) - (t 'airline-normal-inner)) - 'airline-normal-inner) - 'powerline-inactive2))) + (inner-face + (if active + (if evil-mode-active + (cond ((eq evil-state (intern "normal")) 'airline-normal-inner) + ((eq evil-state (intern "insert")) 'airline-insert-inner) + ((eq evil-state (intern "visual")) 'airline-visual-inner) + ((eq evil-state (intern "replace")) 'airline-replace-inner) + ((eq evil-state (intern "emacs")) 'airline-emacs-inner) + (t 'airline-normal-inner)) + 'airline-normal-inner) + 'powerline-inactive2))) inner-face)) (defun airline/telephone-line-nil-face (active) "Return an appropriate face for the current mode." (let* ((evil-mode-active (featurep 'evil)) - (center-face - (if active - (if evil-mode-active - (cond ((eq evil-state (intern "normal")) 'airline-normal-center) - ((eq evil-state (intern "insert")) 'airline-insert-center) - ((eq evil-state (intern "visual")) 'airline-visual-center) - ((eq evil-state (intern "replace")) 'airline-replace-center) - ((eq evil-state (intern "emacs")) 'airline-emacs-center) - (t 'airline-normal-center)) - 'airline-normal-center) - 'airline-inactive3))) + (center-face + (if active + (if evil-mode-active + (cond ((eq evil-state (intern "normal")) 'airline-normal-center) + ((eq evil-state (intern "insert")) 'airline-insert-center) + ((eq evil-state (intern "visual")) 'airline-visual-center) + ((eq evil-state (intern "replace")) 'airline-replace-center) + ((eq evil-state (intern "emacs")) 'airline-emacs-center) + (t 'airline-normal-center)) + 'airline-normal-center) + 'airline-inactive3))) center-face)) (setq telephone-line-faces - '((evil . airline/telephone-line-evil-face) - (accent . airline/telephone-line-accent-face) - (nil . airline/telephone-line-nil-face))) + '((evil . airline/telephone-line-evil-face) + (accent . airline/telephone-line-accent-face) + (nil . airline/telephone-line-nil-face))) :config (telephone-line-mode t)) @@ -600,7 +600,7 @@ targets." :config (add-hook 'after-save-hook #'(lambda () (if (equal major-mode 'org-mode) - (org-babel-tangle)))) + (org-babel-tangle)))) (defvar org-electric-pairs '((?_ . ?_) (?/ . ?/) (?* . ?*)