mir/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Re-indent

Browse Source
This commit is contained in:
MitchMarq42 2022-11-23 11:06:39 -09:00
parent d84779255e
commit c9669a87fa
1 changed files with 49 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

98
lisp/mitch-packages.el
View File

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