120 lines
4.0 KiB
EmacsLisp
120 lines
4.0 KiB
EmacsLisp
;;; defuns-window.el --- library for acting on windows
|
|
|
|
;;;###autoload
|
|
(defun narf/evil-window-split ()
|
|
(interactive)
|
|
(call-interactively 'evil-window-split)
|
|
(evil-window-down 1))
|
|
|
|
;;;###autoload
|
|
(defun narf/evil-window-vsplit ()
|
|
(interactive)
|
|
(call-interactively 'evil-window-vsplit)
|
|
(evil-window-right 1))
|
|
|
|
(defun narf--evil-swap-windows (a b)
|
|
(let ((a-buffer (window-buffer a))
|
|
(b-buffer (window-buffer b)))
|
|
(with-selected-window b
|
|
(switch-to-buffer a-buffer))
|
|
(with-selected-window a
|
|
(switch-to-buffer b-buffer))
|
|
(select-window b)))
|
|
|
|
(defun narf--evil-window-move (direction)
|
|
"Move current window to the next window in DIRECTION. If there are no windows
|
|
there and there is only one window, split in that direction and place this
|
|
window there. If there are no windows and this isn't the only window, use
|
|
evil-window-move-* (e.g. `evil-window-move-far-left')"
|
|
(let* ((this-window (get-buffer-window))
|
|
(this-buffer (current-buffer))
|
|
(that-window (windmove-find-other-window direction nil this-window))
|
|
(that-buffer (window-buffer that-window)))
|
|
(when (minibufferp that-buffer)
|
|
(setq that-buffer nil that-window nil))
|
|
(if (and (not that-window) (not (one-window-p t)))
|
|
(funcall (case direction
|
|
('left 'evil-window-move-far-left)
|
|
('right 'evil-window-move-far-right)
|
|
('up 'evil-window-move-very-top)
|
|
('down 'evil-window-move-very-bottom)))
|
|
(unless that-window
|
|
(setq that-window
|
|
(split-window this-window nil (cond ((eq direction 'up) 'above)
|
|
((eq direction 'down) 'below)
|
|
(t direction))))
|
|
(with-selected-window that-window
|
|
(switch-to-buffer "*scratch*"))
|
|
(setq that-buffer (window-buffer that-window)))
|
|
(with-selected-window this-window
|
|
(switch-to-buffer that-buffer))
|
|
(with-selected-window that-window
|
|
(switch-to-buffer this-buffer))
|
|
(select-window that-window))))
|
|
|
|
;;;###autoload
|
|
(defun narf/new-buffer ()
|
|
(interactive)
|
|
(switch-to-buffer (generate-new-buffer "*new*")))
|
|
|
|
;;;###autoload
|
|
(defun narf/new-frame ()
|
|
(interactive)
|
|
(let ((nlinum-p (and (featurep 'nlinum)
|
|
(memq 'nlinum--setup-window window-configuration-change-hook))))
|
|
;; Disable nlinum to fix elusive "invalid face linum" bug
|
|
(remove-hook 'window-configuration-change-hook 'nlinum--setup-window t)
|
|
(let ((frame (new-frame))
|
|
(frame-name (format "*new-%s*" (length narf-wg-frames))))
|
|
(with-selected-frame frame
|
|
(wg-create-workgroup frame-name t)
|
|
(add-to-list 'narf-wg-frames (cons frame frame-name))))
|
|
(when nlinum-p
|
|
(add-hook 'window-configuration-change-hook 'nlinum--setup-window nil t))))
|
|
|
|
;;;###autoload
|
|
(defun narf/close-frame ()
|
|
(interactive)
|
|
(let ((data (assq (selected-frame) narf-wg-frames)))
|
|
(if data
|
|
(progn (wg-delete-workgroup (wg-get-workgroup (cdr data)))
|
|
(delete-frame (car data)))
|
|
(delete-frame))))
|
|
|
|
;;;###autoload
|
|
(defun narf/evil-window-move-left ()
|
|
"See `narf--evil-window-move'"
|
|
(interactive)
|
|
(narf--evil-window-move 'left))
|
|
;;;###autoload
|
|
(defun narf/evil-window-move-down ()
|
|
"See `narf--evil-window-move'"
|
|
(interactive)
|
|
(narf--evil-window-move 'down))
|
|
;;;###autoload
|
|
(defun narf/evil-window-move-up ()
|
|
"See `narf--evil-window-move'"
|
|
(interactive)
|
|
(narf--evil-window-move 'up))
|
|
;;;###autoload
|
|
(defun narf/evil-window-move-right ()
|
|
"See `narf--evil-window-move'"
|
|
(interactive)
|
|
(narf--evil-window-move 'right))
|
|
|
|
;;;###autoload
|
|
(defun narf/window-reorient ()
|
|
"Reorient all windows that are scrolled to the right."
|
|
(interactive)
|
|
(let ((i 0))
|
|
(mapc (lambda (w)
|
|
(with-selected-window w
|
|
(when (> (window-hscroll) 0)
|
|
(cl-incf i)
|
|
(evil-beginning-of-line))))
|
|
(narf/get-visible-windows))
|
|
(message "Reoriented %s windows" i)))
|
|
|
|
(provide 'defuns-window)
|
|
;;; defuns-window.el ends here
|