Gomuks for an element client
This commit is contained in:
parent
98fd8f06f2
commit
32c64f3bba
3 changed files with 20 additions and 1 deletions
|
@ -53,6 +53,24 @@
|
|||
(switch-to-buffer "*Shell Session*")
|
||||
(funcall (theurgy-shell) "*Shell Session*")))
|
||||
|
||||
(defun theurgy-gomuks ()
|
||||
"Launch gomuks as it's own buffer."
|
||||
(interactive)
|
||||
(if (get-buffer "*Gomuks*")
|
||||
(switch-to-buffer "*Gomuks*")
|
||||
(funcall (theurgy-shell) "*Gomuks*")
|
||||
(let ((buf (current-buffer)))
|
||||
(vterm-send-string "gomuks")
|
||||
(vterm-send-return)
|
||||
(rename-buffer "Gomuks"))))
|
||||
|
||||
(defun theurgy-gomuks-workspace ()
|
||||
"Launch gomuks as a workspace."
|
||||
(interactive)
|
||||
(theurgy-gomuks)
|
||||
(tab-rename "Gomuks")
|
||||
(tab-bar-change-tab-group "userland: gomuks"))
|
||||
|
||||
(define-key global-map (kbd "C-<return>") 'theurgy-main-shell)
|
||||
|
||||
(global-set-key (kbd "M-RET") 'theurgy-bottom-shell)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue