Minor refactors & reformatting across the board
This commit is contained in:
parent
8b18604b63
commit
e0469e14c0
8 changed files with 21 additions and 17 deletions
|
@ -33,7 +33,12 @@ are open."
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun doom-shut-up-a (orig-fn &rest args)
|
(defun doom-shut-up-a (orig-fn &rest args)
|
||||||
"Generic advisor for silencing noisy functions."
|
"Generic advisor for silencing noisy functions.
|
||||||
|
|
||||||
|
In interactive Emacs, this just inhibits messages from appearing in the
|
||||||
|
minibuffer. They are still logged to *Messages*.
|
||||||
|
|
||||||
|
In tty Emacs, messages suppressed completely."
|
||||||
(quiet! (apply orig-fn args)))
|
(quiet! (apply orig-fn args)))
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -53,4 +53,3 @@
|
||||||
"Ex interface for `+ivy/rg-from-cwd'."
|
"Ex interface for `+ivy/rg-from-cwd'."
|
||||||
(interactive "<a><!>")
|
(interactive "<a><!>")
|
||||||
(+ivy/rg-from-cwd (not recurse-p) query))
|
(+ivy/rg-from-cwd (not recurse-p) query))
|
||||||
|
|
||||||
|
|
|
@ -32,7 +32,7 @@
|
||||||
|
|
||||||
(add-hook! 'dired-mode-hook
|
(add-hook! 'dired-mode-hook
|
||||||
(defun +dired-disable-gnu-ls-flags-in-tramp-buffers-h ()
|
(defun +dired-disable-gnu-ls-flags-in-tramp-buffers-h ()
|
||||||
"Fix #1703: opening directories over TRAMP in dired displays a blank screen.
|
"Fix #1703: dired over TRAMP displays a blank screen.
|
||||||
|
|
||||||
This is because there's no guarantee the remote system has GNU ls, which is the
|
This is because there's no guarantee the remote system has GNU ls, which is the
|
||||||
only variant that supports --group-directories-first."
|
only variant that supports --group-directories-first."
|
||||||
|
|
|
@ -483,10 +483,11 @@ current workspace (and clean them up)."
|
||||||
(dolist (buffer org-agenda-new-buffers)
|
(dolist (buffer org-agenda-new-buffers)
|
||||||
(with-current-buffer buffer
|
(with-current-buffer buffer
|
||||||
;; HACK Org agenda opens temporary agenda incomplete org-mode
|
;; HACK Org agenda opens temporary agenda incomplete org-mode
|
||||||
;; buffers. These are great for extracting agenda information from,
|
;; buffers. These are great for extracting agenda information
|
||||||
;; but what if the user tries to visit one of these buffers? Then we
|
;; from, but what if the user tries to visit one of these
|
||||||
;; remove it from the to-be-cleaned queue and restart `org-mode' so
|
;; buffers? Then we remove it from the to-be-cleaned queue and
|
||||||
;; they can grow up to be full-fledged org-mode buffers.
|
;; restart `org-mode' so they can grow up to be full-fledged
|
||||||
|
;; org-mode buffers.
|
||||||
(add-hook 'doom-switch-buffer-hook #'+org--restart-mode-h
|
(add-hook 'doom-switch-buffer-hook #'+org--restart-mode-h
|
||||||
nil 'local))))))
|
nil 'local))))))
|
||||||
|
|
||||||
|
@ -498,8 +499,8 @@ current workspace (and clean them up)."
|
||||||
|
|
||||||
;; HACK With https://code.orgmode.org/bzg/org-mode/commit/48da60f4, inline
|
;; HACK With https://code.orgmode.org/bzg/org-mode/commit/48da60f4, inline
|
||||||
;; image previews broke for users with imagemagick support built in. This
|
;; image previews broke for users with imagemagick support built in. This
|
||||||
;; reverses the problem, but should be removed once it is addressed upstream
|
;; reverses the problem, but should be removed once it is addressed
|
||||||
;; (if ever).
|
;; upstream (if ever).
|
||||||
(defadvice! +org--fix-inline-images-for-imagemagick-users-a (orig-fn &rest args)
|
(defadvice! +org--fix-inline-images-for-imagemagick-users-a (orig-fn &rest args)
|
||||||
:around #'org-display-inline-images
|
:around #'org-display-inline-images
|
||||||
(cl-letf* ((old-create-image (symbol-function #'create-image))
|
(cl-letf* ((old-create-image (symbol-function #'create-image))
|
||||||
|
|
|
@ -1,10 +1,7 @@
|
||||||
;;; lang/org/contrib/pomodoro.el -*- lexical-binding: t; -*-
|
;;; lang/org/contrib/pomodoro.el -*- lexical-binding: t; -*-
|
||||||
;;;###if (featurep! +pomodoro)
|
;;;###if (featurep! +pomodoro)
|
||||||
|
|
||||||
(use-package! org-pomodoro
|
(after! org-pomodoro
|
||||||
:defer t
|
|
||||||
:config
|
|
||||||
|
|
||||||
;; prefer PulseAudio to ALSA in $current_year
|
;; prefer PulseAudio to ALSA in $current_year
|
||||||
(setq org-pomodoro-audio-player (or (executable-find "paplay")
|
(setq org-pomodoro-audio-player (or (executable-find "paplay")
|
||||||
org-pomodoro-audio-player))
|
org-pomodoro-audio-player))
|
||||||
|
|
|
@ -6,7 +6,7 @@ It is passed a user and repository name.")
|
||||||
|
|
||||||
|
|
||||||
;;
|
;;
|
||||||
;; Packages
|
;;; Packages
|
||||||
|
|
||||||
(use-package! magit
|
(use-package! magit
|
||||||
:commands magit-file-delete
|
:commands magit-file-delete
|
||||||
|
|
|
@ -10,7 +10,7 @@
|
||||||
;;
|
;;
|
||||||
;; Packages
|
;; Packages
|
||||||
|
|
||||||
;; `password-store'
|
;;;###package password-store
|
||||||
(setq password-store-password-length 12)
|
(setq password-store-password-length 12)
|
||||||
|
|
||||||
;; Fix hard-coded password-store location; respect PASSWORD_STORE_DIR envvar
|
;; Fix hard-coded password-store location; respect PASSWORD_STORE_DIR envvar
|
||||||
|
|
|
@ -17,6 +17,7 @@
|
||||||
;; Don't follow the cursor
|
;; Don't follow the cursor
|
||||||
(treemacs-follow-mode -1)
|
(treemacs-follow-mode -1)
|
||||||
|
|
||||||
|
;; Allow ace-window to target treemacs windows
|
||||||
(after! ace-window
|
(after! ace-window
|
||||||
(delq! 'treemacs-mode aw-ignored-buffers)))
|
(delq! 'treemacs-mode aw-ignored-buffers)))
|
||||||
|
|
||||||
|
@ -29,7 +30,8 @@
|
||||||
[return] #'treemacs-RET-action
|
[return] #'treemacs-RET-action
|
||||||
[tab] #'treemacs-TAB-action
|
[tab] #'treemacs-TAB-action
|
||||||
"TAB" #'treemacs-TAB-action
|
"TAB" #'treemacs-TAB-action
|
||||||
;; To be consistent with C-w {v,s}:
|
;; REVIEW Fix #1875 to be consistent with C-w {v,s}, but this should really
|
||||||
|
;; be considered upstream.
|
||||||
"o v" #'treemacs-visit-node-horizontal-split
|
"o v" #'treemacs-visit-node-horizontal-split
|
||||||
"o s" #'treemacs-visit-node-vertical-split))
|
"o s" #'treemacs-visit-node-vertical-split))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue