Minor refactor, reformat & comment revision

This commit is contained in:
Henrik Lissner 2018-09-18 17:41:25 -04:00
parent 0c39e73a1e
commit 5ef94de541
5 changed files with 7 additions and 9 deletions

View file

@ -92,9 +92,8 @@
;; Until sebastiencs/company-box#40 is merged
(defun +company*box-frontend-even-if-single (command)
(cond ((eq command 'hide)
(company-box-hide))
((equal company-candidates-length 0)
(cond ((or (eq command 'hide)
(equal company-candidates-length 0))
(company-box-hide))
((eq command 'update)
(company-box-show))

View file

@ -133,12 +133,12 @@ be negative.")
(advice-add #'helm-ag-show-status-default-mode-line :override #'ignore)
;; TODO Find a better way
(defun +helm*use-helpful (orig-fn &rest args)
(defun +helm*use-helpful (orig-fn arg)
(cl-letf (((symbol-function #'describe-function)
(symbol-function #'helpful-callable))
((symbol-function #'describe-variable)
(symbol-function #'helpful-variable)))
(apply orig-fn args)))
(funcall orig-fn arg)))
(advice-add #'helm-describe-variable :around #'+helm*use-helpful)
(advice-add #'helm-describe-function :around #'+helm*use-helpful))

View file

@ -14,7 +14,7 @@
;;
;; Config
;; Don't store authinfo in non-encrypted files!
;; Don't store authinfo in plain text!
(defvar auth-sources
(list (expand-file-name "authinfo.gpg" doom-etc-dir)
"~/.authinfo.gpg"))

View file

@ -20,4 +20,3 @@
(if (thing-at-point-looking-at +markdown--regex-del)
(markdown-unwrap-thing-at-point nil 2 4)
(markdown-wrap-or-insert delim delim 'word nil nil)))))

View file

@ -402,9 +402,9 @@ conditions where a window's buffer hasn't changed at the time this hook is run."
nil))))
(add-hook 'org-agenda-finalize-hook #'+org|exclude-agenda-buffers-from-workspace)
(defun +org*exclude-agenda-buffers-from-recentf (orig-fn &rest args)
(defun +org*exclude-agenda-buffers-from-recentf (orig-fn file)
(let ((recentf-exclude (list (lambda (_file) t))))
(apply orig-fn args)))
(funcall orig-fn file)))
(advice-add #'org-get-agenda-file-buffer
:around #'+org*exclude-agenda-buffers-from-recentf))