THOU SHALT NOT WORSHIP FALSE IDOLS, said the byte compiler
And I obeyed.
This commit is contained in:
parent
d738a8d13a
commit
48b0a468d1
5 changed files with 6 additions and 7 deletions
|
@ -180,6 +180,8 @@ Goes down a list of possible backends:
|
||||||
(unless (string-empty-p pattern)
|
(unless (string-empty-p pattern)
|
||||||
(cl-pushnew pattern devdocs-search-history))))
|
(cl-pushnew pattern devdocs-search-history))))
|
||||||
|
|
||||||
|
(defvar counsel-dash-docsets)
|
||||||
|
(defvar helm-dash-docsets)
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun +lookup/in-docsets (&optional query docsets)
|
(defun +lookup/in-docsets (&optional query docsets)
|
||||||
"TODO"
|
"TODO"
|
||||||
|
|
|
@ -140,9 +140,9 @@ Used by `+lookup/in-docsets' and `+lookup/documentation'."
|
||||||
collect
|
collect
|
||||||
`(defun ,hook-sym ()
|
`(defun ,hook-sym ()
|
||||||
(make-variable-buffer-local ',var-sym)
|
(make-variable-buffer-local ',var-sym)
|
||||||
(cond ((eq (car docsets) :add)
|
(cond ((eq ',(car docsets) :add)
|
||||||
`(setq ,var-sym (append ,var-sym (list ,@(cdr docsets)))))
|
`(setq ,var-sym (append ,var-sym (list ,@(cdr docsets)))))
|
||||||
((eq (car docsets) :remove)
|
((eq ',(car docsets) :remove)
|
||||||
`(setq ,var-sym
|
`(setq ,var-sym
|
||||||
(cl-loop with to-delete = (list ,@(cdr docsets))
|
(cl-loop with to-delete = (list ,@(cdr docsets))
|
||||||
for docset in ,var-sym
|
for docset in ,var-sym
|
||||||
|
|
|
@ -315,9 +315,6 @@ with the :popup setting."
|
||||||
prevent the popup(s) from messing up the UI (or vice versa)."
|
prevent the popup(s) from messing up the UI (or vice versa)."
|
||||||
`(let* ((in-popup-p (+popup-p))
|
`(let* ((in-popup-p (+popup-p))
|
||||||
(popups (+popup-windows))
|
(popups (+popup-windows))
|
||||||
(popup-states
|
|
||||||
(cl-loop for p in popups
|
|
||||||
collect (cons (window-buffer p) (window-state-get p))))
|
|
||||||
+popup--last)
|
+popup--last)
|
||||||
(dolist (p popups)
|
(dolist (p popups)
|
||||||
(+popup/close p 'force))
|
(+popup/close p 'force))
|
||||||
|
|
|
@ -143,7 +143,7 @@ ALIST supports one custom parameter: `size', which will resolve to
|
||||||
(defun doom*ignore-window-parameters (orig-fn &rest args)
|
(defun doom*ignore-window-parameters (orig-fn &rest args)
|
||||||
"Allow *interactive* window moving commands to traverse popups."
|
"Allow *interactive* window moving commands to traverse popups."
|
||||||
(cl-letf (((symbol-function #'windmove-find-other-window)
|
(cl-letf (((symbol-function #'windmove-find-other-window)
|
||||||
(lambda (direction &optional window ignore sign wrap mini)
|
(lambda (dir &optional arg window)
|
||||||
(window-in-direction
|
(window-in-direction
|
||||||
(pcase dir (`up 'above) (`down 'below) (_ dir))
|
(pcase dir (`up 'above) (`down 'below) (_ dir))
|
||||||
window (bound-and-true-p +popup-mode) arg windmove-wrap-around t))))
|
window (bound-and-true-p +popup-mode) arg windmove-wrap-around t))))
|
||||||
|
|
|
@ -507,7 +507,7 @@ the workspace and move to the next."
|
||||||
(+workspace/delete frame-persp)))))
|
(+workspace/delete frame-persp)))))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun +workspaces|per-project (&optional root)
|
(defun +workspaces|per-project ()
|
||||||
"Open a new workspace when switching to another project.
|
"Open a new workspace when switching to another project.
|
||||||
|
|
||||||
Ensures the scratch (or dashboard) buffers are CDed into the project's root."
|
Ensures the scratch (or dashboard) buffers are CDed into the project's root."
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue