emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Minor refactor, reformat & comment revision

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

5
modules/completion/company/config.el
View file

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

4
modules/completion/helm/config.el
View file

@ -133,12 +133,12 @@ be negative.")
(advice-add #'helm-ag-show-status-default-mode-line :override #'ignore) (advice-add #'helm-ag-show-status-default-mode-line :override #'ignore)
;; TODO Find a better way ;; 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) (cl-letf (((symbol-function #'describe-function)
(symbol-function #'helpful-callable)) (symbol-function #'helpful-callable))
((symbol-function #'describe-variable) ((symbol-function #'describe-variable)
(symbol-function #'helpful-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-variable :around #'+helm*use-helpful)
(advice-add #'helm-describe-function :around #'+helm*use-helpful)) (advice-add #'helm-describe-function :around #'+helm*use-helpful))

2
modules/config/default/config.el
View file

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

1
modules/lang/markdown/autoload.el
View file

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

4
modules/lang/org/config.el
View file

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