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

Re-indent/format

Browse Source
This commit is contained in:
MitchMarq42 2022-11-15 10:49:15 -09:00
parent 00e2bb187f
commit 2854b1a128
1 changed files with 14 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
lisp/mitch-packages.el
View File

@ -20,6 +20,7 @@
:init (savehist-mode) :init (savehist-mode)
:custom (savehist-file :custom (savehist-file
(expand-file-name "minibuffer-history" backup-directory))) (expand-file-name "minibuffer-history" backup-directory)))
;; save place in all files ;; save place in all files
(use-package saveplace (use-package saveplace
:straight (:type built-in) :straight (:type built-in)
@ -163,8 +164,7 @@ This is taken from a website that I can't remember at the moment."
(replace-match "" t nil))) (replace-match "" t nil)))
(progn (progn
(eshell-bol) (eshell-bol)
(insert "sudo ") (insert "sudo "))))))
)))))
:general :general
(general-define-key (general-define-key
:states 'normal :states 'normal
@ -200,8 +200,7 @@ Taken from https://github.com/manateelazycat/aweshell/blob/d246df619573ca3f46070
(remove-text-properties 0 (length contents) '(read-only nil) contents) (remove-text-properties 0 (length contents) '(read-only nil) contents)
contents))) contents)))
(unless existing-buffer (unless existing-buffer
(kill-buffer buffer)) (kill-buffer buffer)) nil))
nil))
(defun eshell/cat (&rest args) (defun eshell/cat (&rest args)
"Wrapper around `aweshell-cat-with-syntax-highlight' for multiple arguments. "Wrapper around `aweshell-cat-with-syntax-highlight' for multiple arguments.
" "
@ -459,8 +458,7 @@ targets."
((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."
@ -475,8 +473,7 @@ targets."
((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."
@ -491,16 +488,14 @@ targets."
((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))
)
;; 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.
@ -510,9 +505,7 @@ targets."
:files (:defaults "mitch-theme.el")) :files (:defaults "mitch-theme.el"))
:config (mitch/visual-setup) :config (mitch/visual-setup)
:init :init
(load-theme 'mitch t) (load-theme 'mitch t))
;; (load-theme 'airline-kolor t) ;; re-enable
)
(use-package yascroll (use-package yascroll
:diminish :diminish
@ -573,8 +566,7 @@ targets."
(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 '((?_ . ?_)
(?_ . ?_)
(?/ . ?/) (?/ . ?/)
(?* . ?*) (?* . ?*)
(?+ . ?+) (?+ . ?+)
@ -660,8 +652,8 @@ See https://emacs.stackexchange.com/questions/2538/how-to-define-additional-mode
:hook ((powershell-mode . lsp-mode) :hook ((powershell-mode . lsp-mode)
(lsp-mode . lsp-enable-which-key-integration)) (lsp-mode . lsp-enable-which-key-integration))
:commands lsp :commands lsp
:custom :diminish lsp-lens-mode
(lsp-completion-provider :none)) :custom (lsp-completion-provider :none))
;; broken snippets I don't care about... ;; broken snippets I don't care about...
(use-package yasnippet (use-package yasnippet
@ -778,9 +770,7 @@ See https://emacs.stackexchange.com/questions/2538/how-to-define-additional-mode
"C-n" 'corfu-next "C-n" 'corfu-next
"C-p" 'corfu-previous "C-p" 'corfu-previous
"RET" 'corfu-insert "RET" 'corfu-insert
"ESC" 'corfu-kill-in-minibuffer "ESC" 'corfu-kill-in-minibuffer))
)
)
(use-package popon (use-package popon
:straight :straight
@ -823,8 +813,8 @@ See https://emacs.stackexchange.com/questions/2538/how-to-define-additional-mode
;; (use-package exwm ;; (use-package exwm
;; ;; :init ;; ;; :init
;; ;; (require 'exwm-config) ;; ;; (require 'exwm-config)
;; ;; (exwm-config-example) ;; ;; (exwm-config-example))
;; )
(use-package ani-el (use-package ani-el
: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")))