The Lambda Lab
/
projects
/
lurk.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
266f254
)
Added header.
author
plugd
<plugd@thelambdalab.xyz>
Sun, 19 May 2024 14:11:54 +0000
(16:11 +0200)
committer
plugd
<plugd@thelambdalab.xyz>
Sun, 26 May 2024 19:14:04 +0000
(21:14 +0200)
murk.el
patch
|
blob
|
history
diff --git
a/murk.el
b/murk.el
index
652b3c2
..
fb79061
100644
(file)
--- a/
murk.el
+++ b/
murk.el
@@
-300,6
+300,7
@@
The head of this list is always the current context.")
(defun murk-context-server (ctx) (elt ctx 0))
(defun murk-context-name (ctx) (elt ctx 1))
(defun murk-context-server (ctx) (elt ctx 0))
(defun murk-context-name (ctx) (elt ctx 1))
+(defun murk-context-users (ctx) (seq-drop ctx 2))
(defun murk-server-context-p (ctx) (not (cdr ctx)))
(defun murk-add-context (ctx)
(defun murk-server-context-p (ctx) (not (cdr ctx)))
(defun murk-add-context (ctx)
@@
-366,8
+367,24
@@
The head of this list is always the current context.")
"Marker for prompt position in murk buffer.")
(defun murk-setup-header ()
"Marker for prompt position in murk buffer.")
(defun murk-setup-header ()
- ;; To do
- )
+ (with-current-buffer "*murk*"
+ (setq-local header-line-format
+ '((:eval
+ (let* ((ctx (murk-current-context)))
+ (if ctx
+ (let ((server (murk-context-server ctx)))
+ (concat
+ "Network: " server ", "
+ (if (murk-server-context-p ctx)
+ "Server"
+ (concat
+ "Channel: "
+ (murk-context-name ctx)
+ " ("
+ (number-to-string
+ (length (murk-context-users ctx)))
+ ")"))))
+ "No connection")))))))
(defun murk-setup-buffer ()
(with-current-buffer (get-buffer-create "*murk*")
(defun murk-setup-buffer ()
(with-current-buffer (get-buffer-create "*murk*")
@@
-626,6
+643,17
@@
The head of this list is always the current context.")
(not murk-debug)))
(murk-display-notice nil "Debug mode now " (if murk-debug "on" "off") "."))
(not murk-debug)))
(murk-display-notice nil "Debug mode now " (if murk-debug "on" "off") "."))
+(defun murk-command-header (params)
+ (if
+ (if params
+ (equal (upcase (car params)) "ON")
+ (not header-line-format))
+ (progn
+ (murk-setup-header)
+ (murk-display-notice nil "Header enabled."))
+ (setq-local header-line-format nil)
+ (murk-display-notice nil "Header disabled.")))
+
(defun murk-command-clear (params)
(if (not params)
(murk-clear-buffer)
(defun murk-command-clear (params)
(if (not params)
(murk-clear-buffer)