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

do a bunch of stuff idk

Browse Source
This commit is contained in:
MitchMarq42 2024-01-16 20:37:53 -09:00
parent 6791def344
commit c71413d540
1 changed files with 24 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lisp/mitch-packages.el
View File

@ -185,7 +185,7 @@
:custom :custom
(eshell-scroll-to-bottom-on-input t) (eshell-scroll-to-bottom-on-input t)
(eshell-hist-ignoredups t) (eshell-hist-ignoredups t)
(eshell-history-file-name nil) (eshell-history-file-name (expand-file-name "zsh/histfile" "~/.local/share/"))
(eshell-history-size nil) (eshell-history-size nil)
(eshell-banner-message "") (eshell-banner-message "")
(eshell-expand-input-functions '(eshell-expand-history-references)) (eshell-expand-input-functions '(eshell-expand-history-references))
@ -303,19 +303,19 @@ If the current window occupies the whole frame, split it."
:elpaca (:host gitlab :elpaca (:host gitlab
:repo "xgqt/emacs-ansilove") :repo "xgqt/emacs-ansilove")
:commands ansilove) :commands ansilove)
(use-package gitstatus ;; (use-package gitstatus
:elpaca (:host github ;; :elpaca (:host github
:repo "igorepst/gitstatus-el") ;; :repo "igorepst/gitstatus-el")
:after eshell ;; :after eshell
:init ;; :init
(setq system-architecture (car (split-string system-configuration "-"))) ;; (setq system-architecture (car (split-string system-configuration "-")))
(setq gitstatusd-exe (format "~/.cache/gitstatus/gitstatusd-linux-%s" ;; (setq gitstatusd-exe (format "~/.cache/gitstatus/gitstatusd-linux-%s"
system-architecture)) ;; system-architecture))
(add-hook 'eshell-before-prompt-hook #'gitstatus-eshell-start)) ;; (add-hook 'eshell-before-prompt-hook #'gitstatus-eshell-start))
(use-package p11k (use-package p11k
:elpaca (:repo "https://git.mitchmarq42.xyz/mitch/p11k-el") :elpaca (:repo "https://git.mitchmarq42.xyz/mitch/p11k-el")
:after eshell :after eshell
:hook (eshell-mode . p11k-mode)) :hook (eshell-first-time-mode . p11k-mode))
;; File manager. Only breaks when you brag about how it doesn't. ;; File manager. Only breaks when you brag about how it doesn't.
(use-package all-the-icons (use-package all-the-icons
@ -534,7 +534,9 @@ targets."
(airline-shortened-directory-length 20) (airline-shortened-directory-length 20)
:custom-face :custom-face
(mode-line (mode-line
((t (:box (:style released-button :line-width (0.5 . 0.5)))))) ((t (:box (:style released-button
;; :line-width (0.5 . 0.5)
)))))
;; :config (load-theme 'airline-kolor t) ;; :config (load-theme 'airline-kolor t)
) )
;; see https://github.com/dbordak/telephone-line/issues/126 ;; see https://github.com/dbordak/telephone-line/issues/126
@ -1206,13 +1208,14 @@ This is redefined for use with `hypop' library because multiple Emacs frames may
:hook (after-init . dtache-setup)) :hook (after-init . dtache-setup))
(if (display-graphic-p) (if (display-graphic-p)
(unless (string= (getenv "XDG_SESSION_DESKTOP") "hyprland")
(progn (progn
(add-to-list 'load-path "~/.local/src/holo-layer") (add-to-list 'load-path "~/.local/src/holo-layer")
(require 'holo-layer) (require 'holo-layer)
(setq holo-layer-enable-cursor-animation t) (setq holo-layer-enable-cursor-animation t)
(setq holo-layer-cursor-color (face-attribute 'cursor :background)) (setq holo-layer-cursor-color (face-attribute 'cursor :background))
(setq holo-layer-cursor-animation-duration 100) (setq holo-layer-cursor-animation-duration 100)
(holo-layer-enable))) (holo-layer-enable))))
(use-package oauth (use-package oauth
:elpaca (:fetcher codeberg :elpaca (:fetcher codeberg
@ -1247,5 +1250,7 @@ This is redefined for use with `hypop' library because multiple Emacs frames may
;; :elpaca (:host github :repo "alphapapa/prism.el") ;; :elpaca (:host github :repo "alphapapa/prism.el")
;; :custom (prism-colors '())) ;; :custom (prism-colors '()))
(use-package lua-mode)
(provide 'mitch-packages) (provide 'mitch-packages)
;;; mitch-packages.el ends here ;;; mitch-packages.el ends here