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)
:custom (savehist-file
(expand-file-name "minibuffer-history" backup-directory)))
;; save place in all files
(use-package saveplace
: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)))
(progn
(eshell-bol)
(insert "sudo ")
)))))
(insert "sudo "))))))
:general
(general-define-key
: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)
contents)))
(unless existing-buffer
(kill-buffer buffer))
nil))
(kill-buffer buffer)) nil))
(defun eshell/cat (&rest args)
"Wrapper around `aweshell-cat-with-syntax-highlight' for multiple arguments.
"
@ -459,8 +458,7 @@ targets."
((eq evil-state (intern "emacs")) 'airline-emacs-outer)
(t 'airline-normal-outer))
'airline-normal-outer)
'powerline-inactive1))
)
'powerline-inactive1)))
outer-face))
(defun airline/telephone-line-accent-face (active)
"Return an appropriate face for the current mode."
@ -475,8 +473,7 @@ targets."
((eq evil-state (intern "emacs")) 'airline-emacs-inner)
(t 'airline-normal-inner))
'airline-normal-inner)
'powerline-inactive2))
)
'powerline-inactive2)))
inner-face))
(defun airline/telephone-line-nil-face (active)
"Return an appropriate face for the current mode."
@ -491,16 +488,14 @@ targets."
((eq evil-state (intern "emacs")) 'airline-emacs-center)
(t 'airline-normal-center))
'airline-normal-center)
'airline-inactive3))
)
'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)))
:config
(telephone-line-mode t)
)
(telephone-line-mode t))
;; Custom Theme.
;; 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"))
:config (mitch/visual-setup)
:init
(load-theme 'mitch t)
;; (load-theme 'airline-kolor t) ;; re-enable
)
(load-theme 'mitch t))
(use-package yascroll
:diminish
@ -573,8 +566,7 @@ targets."
(add-hook 'after-save-hook
#'(lambda () (if (equal major-mode 'org-mode)
(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)
(lsp-mode . lsp-enable-which-key-integration))
:commands lsp
:custom
(lsp-completion-provider :none))
:diminish lsp-lens-mode
:custom (lsp-completion-provider :none))
;; broken snippets I don't care about...
(use-package yasnippet
@ -778,9 +770,7 @@ See https://emacs.stackexchange.com/questions/2538/how-to-define-additional-mode
"C-n" 'corfu-next
"C-p" 'corfu-previous
"RET" 'corfu-insert
"ESC" 'corfu-kill-in-minibuffer
)
)
"ESC" 'corfu-kill-in-minibuffer))
(use-package popon
:straight
@ -823,8 +813,8 @@ See https://emacs.stackexchange.com/questions/2538/how-to-define-additional-mode
;; (use-package exwm
;; ;; :init
;; ;; (require 'exwm-config)
;; ;; (exwm-config-example)
;; )
;; ;; (exwm-config-example))
(use-package ani-el
:straight (:type git :repo "https://git.mitchmarq42.xyz/mitch/ani-el"
:files ("ani-el.el" "lib")))