General refactor & cleanup
This commit is contained in:
parent
5beb74b14d
commit
afb31659a3
5 changed files with 6 additions and 10 deletions
|
@ -18,7 +18,7 @@ current window if omitted."
|
||||||
(declare (indent defun))
|
(declare (indent defun))
|
||||||
(unless (bufferp buffer)
|
(unless (bufferp buffer)
|
||||||
(error "%s is not a valid buffer" buffer))
|
(error "%s is not a valid buffer" buffer))
|
||||||
(setq plist (doom*shackle-always-align plist))
|
(setq plist (append plist (shackle-match buffer)))
|
||||||
(shackle-display-buffer
|
(shackle-display-buffer
|
||||||
buffer
|
buffer
|
||||||
nil (or plist (shackle-match buffer))))
|
nil (or plist (shackle-match buffer))))
|
||||||
|
|
|
@ -197,8 +197,7 @@ and setting `doom-popup-rules' within it. Returns the window."
|
||||||
(when (get-buffer-window-list (car args) nil t)
|
(when (get-buffer-window-list (car args) nil t)
|
||||||
(setq plist (append (list :autokill t) plist))
|
(setq plist (append (list :autokill t) plist))
|
||||||
(setcar args (clone-indirect-buffer (buffer-name (car args)) nil t)))
|
(setcar args (clone-indirect-buffer (buffer-name (car args)) nil t)))
|
||||||
(setq window (apply orig-fn args))
|
(unless (setq window (apply orig-fn args))
|
||||||
(unless window
|
|
||||||
(error "No popup window was found for %s: %s" (car args) plist))
|
(error "No popup window was found for %s: %s" (car args) plist))
|
||||||
(with-selected-window window
|
(with-selected-window window
|
||||||
(unless (eq plist t)
|
(unless (eq plist t)
|
||||||
|
|
|
@ -43,10 +43,10 @@
|
||||||
|
|
||||||
:completion
|
:completion
|
||||||
company ; auto-completion backend
|
company ; auto-completion backend
|
||||||
;; TODO auto-complete ; auto-completion backend #2
|
;; TODO auto-complete
|
||||||
ivy ; a search engine for love and life
|
ivy ; a search engine for love and life
|
||||||
;; helm ;
|
;; helm
|
||||||
;; ido ;
|
;; ido
|
||||||
|
|
||||||
:ui
|
:ui
|
||||||
doom ; doom-one; a look inspired by Atom's Dark One
|
doom ; doom-one; a look inspired by Atom's Dark One
|
||||||
|
|
|
@ -29,6 +29,7 @@ functions.")
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun +eval/build (builder)
|
(defun +eval/build (builder)
|
||||||
|
"TODO"
|
||||||
(interactive
|
(interactive
|
||||||
(list (or +eval-last-builder
|
(list (or +eval-last-builder
|
||||||
(+eval--read-builder)
|
(+eval--read-builder)
|
||||||
|
|
|
@ -1,9 +1,5 @@
|
||||||
;;; feature/eval/config.el
|
;;; feature/eval/config.el
|
||||||
|
|
||||||
;; This module creates a centralized way of invoking/sending selections to REPLs
|
|
||||||
;; (with `repl-toggle'), building projects/files, and running code (with
|
|
||||||
;; `quickrun'), revealing its output in a popup window.
|
|
||||||
|
|
||||||
;;
|
;;
|
||||||
;; Code building
|
;; Code building
|
||||||
;;
|
;;
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue