Doom Emacs: add some more old changes and move things around

main
earnest ma 2022-06-13 09:35:59 -04:00
parent f9a536174e
commit cc945d0568
Signed by: earnest ma
GPG Key ID: A343F43342EB6E2A
4 changed files with 34 additions and 11 deletions

View File

@ -12,7 +12,8 @@ projects in other locations.")
(setq projectile-project-search-path project-locations)) (setq projectile-project-search-path project-locations))
(after! magit (after! magit
(setq magit-save-repository-buffers t (add-hook! 'after-save-hook #'magit-after-save-refresh-status)
(setq magit-save-repository-buffers t ; ask to save modified files in repo
magit-repository-directories project-locations)) magit-repository-directories project-locations))
(use-package! ghq) (use-package! ghq)

View File

@ -12,7 +12,15 @@
(setq doom-fallback-buffer-name "► Doom" (setq doom-fallback-buffer-name "► Doom"
+doom-dashboard-name "► Doom") +doom-dashboard-name "► Doom")
;; From Tecosaur's config: hide encoding when it's what's expected ;; pop-ups
(setq which-key-idle-delay 0.25)
(setq company-idle-delay 0.1)
;; centaur tabs issue: https://github.com/ema2159/centaur-tabs/issues/181
(after! centaur-tabs
(centaur-tabs-group-by-projectile-project))
;; From Tecosaur's config: hide encoding in modeline if usual
(defun doom-modeline-conditional-buffer-encoding () (defun doom-modeline-conditional-buffer-encoding ()
"We expect the encoding to be LF UTF-8, so only show the modeline when this is not the case" "We expect the encoding to be LF UTF-8, so only show the modeline when this is not the case"
(setq-local doom-modeline-buffer-encoding (setq-local doom-modeline-buffer-encoding
@ -21,3 +29,12 @@
(not (memq (coding-system-eol-type buffer-file-coding-system) '(1 2)))) (not (memq (coding-system-eol-type buffer-file-coding-system) '(1 2))))
t))) t)))
(add-hook 'after-change-major-mode-hook #'doom-modeline-conditional-buffer-encoding) (add-hook 'after-change-major-mode-hook #'doom-modeline-conditional-buffer-encoding)
;; Also from Tecosaur's config (modified slightly): better window title
(setq frame-title-format
'(""
"%b" ; removed the org-roam part
(:eval
(let ((project-name (projectile-project-name)))
(unless (string= "-" project-name)
(format (if (buffer-modified-p) " ◉ %s" "  ●  %s") project-name))))))

View File

@ -24,18 +24,23 @@
evil-want-fine-undo t ; more history when in insert mode evil-want-fine-undo t ; more history when in insert mode
evil-split-window-below t ; switch to window after creation evil-split-window-below t ; switch to window after creation
evil-vsplit-window-right t evil-vsplit-window-right t
evil-kill-on-visual-paste nil ; copy pasting
truncate-string-ellipsis "" ; Unicode ellispis are nicer than "...", and also save /precious/ space truncate-string-ellipsis "" ; Unicode ellispis are nicer than "...", and also save /precious/ space
password-cache-expiry nil ; don't expire password-cache-expiry nil ; don't expire
) )
(global-subword-mode 1) ; Iterate through CamelCase words (global-subword-mode 1) ; Iterate through CamelCase words
(setq which-key-idle-delay 0.25)
(setq company-idle-delay 0.1)
;; speed-type ;; speed-type
(use-package! speed-type) (use-package! speed-type)
;; company
(after! company
(setq company-idle-delay 0.1
company-minimum-prefix-length 2
;; doesn't show in childframe, but might be useful in terminal
company-show-quick-access 1))
;; Whenever you reconfigure a package, make sure to wrap your config in an ;; Whenever you reconfigure a package, make sure to wrap your config in an
;; `after!' block, otherwise Doom's defaults may override your settings. E.g. ;; `after!' block, otherwise Doom's defaults may override your settings. E.g.
;; ;;

View File

@ -15,17 +15,17 @@
;; directory (for easy access to its source code). ;; directory (for easy access to its source code).
(doom! :input (doom! :input
bidi ; (tfel ot) thgir etirw uoy gnipleh ;;bidi ; (tfel ot) thgir etirw uoy gnipleh
;;chinese ;;chinese
;;japanese ;;japanese
;;layout ; auie,ctsrnm is the superior home row ;;layout ; auie,ctsrnm is the superior home row
:completion :completion
company ; the ultimate code completion backend (company +childframe) ; the ultimate code completion backend
;;helm ; the *other* search engine for love and life ;;helm ; the *other* search engine for love and life
;;ido ; the other *other* search engine... ;;ido ; the other *other* search engine...
;;ivy ; a search engine for love and life ;;ivy ; a search engine for love and life
vertico ; the search engine of the future (vertico +icons) ; the search engine of the future
:ui :ui
;;deft ; notational velocity for Emacs ;;deft ; notational velocity for Emacs
@ -85,11 +85,11 @@
;;grammar ; tasing grammar mistake every you make ;;grammar ; tasing grammar mistake every you make
:tools :tools
;;ansible ansible
;;biblio ; Writes a PhD for you (citation needed) ;;biblio ; Writes a PhD for you (citation needed)
;;debugger ; FIXME stepping through code, to help you add bugs ;;debugger ; FIXME stepping through code, to help you add bugs
direnv direnv
;;docker docker
editorconfig ; let someone else argue about tabs vs spaces editorconfig ; let someone else argue about tabs vs spaces
;;ein ; tame Jupyter notebooks with emacs ;;ein ; tame Jupyter notebooks with emacs
(eval +overlay) ; run code, run (also, repls) (eval +overlay) ; run code, run (also, repls)
@ -156,7 +156,7 @@
;;php ; perl's insecure younger brother ;;php ; perl's insecure younger brother
;;plantuml ; diagrams for confusing people more ;;plantuml ; diagrams for confusing people more
;;purescript ; javascript, but functional ;;purescript ; javascript, but functional
(python +lsp +poetry) ; beautiful is better than ugly (python +lsp +pyright +poetry) ; beautiful is better than ugly
;;qt ; the 'cutest' gui framework ever ;;qt ; the 'cutest' gui framework ever
;;racket ; a DSL for DSLs ;;racket ; a DSL for DSLs
;;raku ; the artist formerly known as perl6 ;;raku ; the artist formerly known as perl6