Functions for starting and killing the gomuks server

This commit is contained in:
Jakub 2026-05-09 12:54:02 +08:00
parent 730698dbd6
commit 9168cecfd4

View file

@ -30,12 +30,24 @@
(defvar client-state (make-gomuks-state :rooms '() :spaces '()))
(defvar gomuks-server-buffer (get-buffer-create "*gomuks-server*"))
(defvar gomuks-server-buffer "*gomuks-server*")
(defvar gomuks-socket-buffer "*gomuks-socket-frame*")
(defvar gomuks-server-name "*gomuks-server*")
(defvar gomuks-server-bin "~/Downloads/gomuks")
(defvar gomuks-server-proc
(start-process gomuks-server-name gomuks-server-buffer gomuks-server-bin))
(defcustom gomuks-server-binary "~/Downloads/gomuks"
"The Gomuks backend binary."
:type 'string
:group 'gomuks)
(defun gomuks-server-start ()
"Start the gomuks server process"
(interactive)
(start-process gomuks-server-name (get-buffer-create gomuks-server-buffer) gomuks-server-bin))
(defun gomuks-server-kill ()
"Kill the gomuks server process"
(interactive)
(kill-process gomuks-server-name))
(defvar gomuks-url "http://localhost:29325")
(defvar gomuks-auth-endpoint (concat gomuks-url "/_gomuks/auth"))