BirDt/gomuks.el
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Clean up the URLs a bit

Browse source
This commit is contained in:
Jakub 2026-05-09 13:02:17 +08:00
parent 65887da8da
commit ab0137230f
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
gomuks.el
View file

@ -43,6 +43,11 @@
:type 'string :type 'string
:group 'gomuks) :group 'gomuks)
(defcustom gomuks-base-url "localhost:29325"
"The base URL for the Gomuks backend, only IP address and port required."
:type 'string
:group 'gomuks)
(defun gomuks-server-start () (defun gomuks-server-start ()
"Start the gomuks server process" "Start the gomuks server process"
(interactive) (interactive)
@ -57,11 +62,10 @@
(kill-process gomuks-server-name) (kill-process gomuks-server-name)
(notifications-notify :title "Gomuks Server Closed" :app-name "gomuks.el")) (notifications-notify :title "Gomuks Server Closed" :app-name "gomuks.el"))
(defvar gomuks-url "http://localhost:29325") (defvar gomuks-auth-endpoint (concat "http://" gomuks-base-url "/_gomuks/auth"))
(defvar gomuks-auth-endpoint (concat gomuks-url "/_gomuks/auth"))
(defvar gomuks-auth-cookie) (defvar gomuks-auth-cookie)
(defvar gomuks-ws-endpoint (concat gomuks-url "/_gomuks/websocket")) (defvar gomuks-ws-endpoint (concat "ws://" gomuks-base-url "/_gomuks/websocket"))
(defun gomuks-connect (gomuks-username) (defun gomuks-connect (gomuks-username)
"Opens a websocket connection with the specified gomuks endpoint" "Opens a websocket connection with the specified gomuks endpoint"
@ -76,6 +80,7 @@
(base64-encode-string (base64-encode-string
(concat gomuks-username ":" gomuks-password)))))) (concat gomuks-username ":" gomuks-password))))))
(sleep-for 0.5) (sleep-for 0.5)
;; TODO: this needs to select domain dynamically, instead of hardcoding a string here
(cdar (request--netscape-get-cookies request--curl-cookie-jar "localhost" "/_gomuks" t))))) (cdar (request--netscape-get-cookies request--curl-cookie-jar "localhost" "/_gomuks" t)))))
(setq gomuks-ping-timer (run-with-timer (setq gomuks-ping-timer (run-with-timer
0 0
@ -84,7 +89,7 @@
(message "pinging") (message "pinging")
(websocket-send-text gomuks-websocket (websocket-send-text gomuks-websocket
"{\"command\":\"ping\"}")))) "{\"command\":\"ping\"}"))))
(setq gomuks-websocket (websocket-open "ws://localhost:29325/_gomuks/websocket" (setq gomuks-websocket (websocket-open gomuks-ws-endpoint
:custom-header-alist :custom-header-alist
`(("Cookie" . ,(concat "gomuks_auth=" gomuks-auth-cookie))) `(("Cookie" . ,(concat "gomuks_auth=" gomuks-auth-cookie)))
:on-message (lambda (_ws frame) :on-message (lambda (_ws frame)