General refactor & cleanup

This commit is contained in:
Henrik Lissner 2017-05-13 00:14:15 +02:00
parent 5beb74b14d
commit afb31659a3
5 changed files with 6 additions and 10 deletions

View file

@ -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))))

View file

@ -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)

View file

@ -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

View file

@ -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)

View file

@ -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
;; ;;