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

General minor refactor & comment revision

Browse source
This commit is contained in:
Henrik Lissner 2018-01-06 03:03:02 -05:00
parent b17cafc4f7
commit b28f6ed477
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
4 changed files with 9 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

11
core/core-lib.el
View file

@ -301,12 +301,11 @@ Do not use this for configuring Doom core."
(declare (indent defun)) (declare (indent defun))
(unless values (unless values
(error "Empty set! for %s" keyword)) (error "Empty set! for %s" keyword))
(let ((fn (cdr (assq keyword doom-settings)))) (if-let* ((fn (cdr (assq keyword doom-settings))))
(if fn (apply fn values)
(apply fn values) (when doom-debug-mode
(when doom-debug-mode (message "No setting found for %s" keyword)
(message "No setting found for %s" keyword) nil)))
nil))))
(provide 'core-lib) (provide 'core-lib)
;;; core-lib.el ends here ;;; core-lib.el ends here

4
modules/feature/popup/autoload.el
View file

@ -226,8 +226,8 @@ disabled."
(defun +popup/close (&optional window force-p) (defun +popup/close (&optional window force-p)
"Close WINDOW, if it's a popup window. "Close WINDOW, if it's a popup window.
This will do nothing if the popup's `escape-quit' window parameter is either nil This will do nothing if the popup's `quit' window parameter is either nil or
or 'other. This window parameter is ignored if FORCE-P is non-nil." 'other. This window parameter is ignored if FORCE-P is non-nil."
(interactive (interactive
(list (selected-window) (list (selected-window)
current-prefix-arg)) current-prefix-arg))

3
modules/feature/workspaces/config.el
View file

@ -72,7 +72,8 @@ renamed.")
(when (and (equal (safe-persp-name (get-current-persp)) persp-nil-name) (when (and (equal (safe-persp-name (get-current-persp)) persp-nil-name)
(= persp-auto-resume-time -1)) (= persp-auto-resume-time -1))
(persp-frame-switch +workspaces-main (or frame (selected-frame)))) (persp-frame-switch +workspaces-main (or frame (selected-frame))))
;; Make sure warnings are visible (fix #319) ;; The warnings buffer gets swallowed by creating `+workspaces-main', so
;; we display it manually, if it exists (fix #319).
(when-let* ((warnings (get-buffer "*Warnings*"))) (when-let* ((warnings (get-buffer "*Warnings*")))
(display-buffer-in-side-window (display-buffer-in-side-window
warnings '((window-height . shrink-window-if-larger-than-buffer)))))) warnings '((window-height . shrink-window-if-larger-than-buffer))))))

13
modules/lang/org/autoload/org-babel.el
View file

@ -1,13 +0,0 @@
;;; lang/org/autoload/org-babel.el -*- lexical-binding: t; -*-
;;;###if (featurep! +babel)
;;;###autoload
(defun +org-babel/edit (arg)
"Edit the source block at point in a popup.
If ARG is non-nil (universal argument), use the current window."
(interactive "P")
(if arg
(call-interactively #'org-edit-special)
(with-popup-rules! (("^\\*Org Src" :regexp t :select t :noesc t :same t))
(call-interactively #'org-edit-special))))