Check if i3 exists when trying to do splits, else just spawn new frames

This commit is contained in:
Adam Goldsmith 2019-02-19 01:58:16 -05:00
parent 0be422e429
commit 726224bfe0

View File

@ -475,18 +475,23 @@
(add-to-list 'frames-only-mode-use-window-functions 'undo-tree-visualize)
(frames-only-mode t)
(menu-bar-mode 0)
(defun split-window-below-i3 ()
"It's like `split-window-below', but uses i3 stuff"
(interactive)
(call-process "i3" nil nil nil "split v")
(make-frame))
(defun split-window-right-i3 ()
"It's like `split-window-below', but uses i3 stuff"
(interactive)
(call-process "i3" nil nil nil "split h")
(make-frame))
(bind-key "C-x 2" 'split-window-below-i3)
(bind-key "C-x 3" 'split-window-right-i3))
(if (executable-find "i3")
(progn
(defun split-window-below-i3 ()
"It's like `split-window-below', but uses i3 stuff"
(interactive)
(call-process "i3" nil nil nil "split v")
(make-frame))
(defun split-window-right-i3 ()
"It's like `split-window-below', but uses i3 stuff"
(interactive)
(call-process "i3" nil nil nil "split h")
(make-frame))
(bind-key "C-x 2" 'split-window-below-i3)
(bind-key "C-x 3" 'split-window-right-i3))
(progn
(bind-key "C-x 2" 'make-frame-command)
(bind-key "C-x 3" 'make-frame-command))))
(use-package crux :ensure
:bind (("C-a" . crux-move-beginning-of-line)))