dotfiles/emacs
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Make split-window-below-i3 behave nicer in a terminal or missing i3

Browse Source
This commit is contained in:
Adam Goldsmith 2021-01-04 13:13:32 -05:00
parent 6b97d19487
commit ab3907d9fa
1 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
.emacs.d/init.el
View File

@ -532,23 +532,26 @@
(defun x-focus-frame (FRAME &optional NOACTIVATE)) (defun x-focus-frame (FRAME &optional NOACTIVATE))
(frames-only-mode t) (frames-only-mode t)
(menu-bar-mode 0) (menu-bar-mode 0)
(if (executable-find "i3")
(progn
(defun split-window-below-i3 () (defun split-window-below-i3 ()
"It's like `split-window-below', but uses i3 stuff" "It's like `split-window-below', but uses i3 stuff when available"
(interactive) (interactive)
(cond ((not (display-graphic-p)) (split-window-below))
((executable-find "i3")
(call-process "i3" nil nil nil "split v") (call-process "i3" nil nil nil "split v")
(make-frame)) (make-frame))
(t (make-frame))))
(defun split-window-right-i3 () (defun split-window-right-i3 ()
"It's like `split-window-right', but uses i3 stuff" "It's like `split-window-right', but uses i3 stuff when available"
(interactive) (interactive)
(cond ((not (display-graphic-p)) (split-window-right))
((executable-find "i3")
(call-process "i3" nil nil nil "split h") (call-process "i3" nil nil nil "split h")
(make-frame)) (make-frame))
(t (make-frame))))
(bind-key "C-x 2" 'split-window-below-i3) (bind-key "C-x 2" 'split-window-below-i3)
(bind-key "C-x 3" 'split-window-right-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 (use-package crux :ensure
:bind (("C-a" . crux-move-beginning-of-line))) :bind (("C-a" . crux-move-beginning-of-line)))