(defcustom lurk-show-joins nil
"Set to non-nil to be notified of joins, parts and quits.")
+(defcustom lurk-display-header t
+ "If non-nil, use buffer header to display information on current host and channel.")
+
;;; Faces
;;
(defvar lurk-input-marker nil
"Marker for prompt position in LURK buffer.")
+(defun lurk-setup-header ()
+ (setq-local header-line-format
+ '(:eval
+ (let ((proc (get-process "lurk")))
+ (if proc
+ (concat
+ "Host: " (car (process-contact proc))
+ ", Context: "
+ (if lurk-current-context
+ (concat
+ lurk-current-context
+ " ("
+ (number-to-string
+ (length (lurk-get-context-users lurk-current-context)))
+ " users)")
+ "Server"))
+ "No connection")))))
+
(defun lurk-setup-buffer ()
(with-current-buffer (get-buffer-create "*lurk*")
(setq-local scroll-conservatively 1)
(set-marker lurk-input-marker (point-max))
(setq lurk-input-marker (point-max-marker)))
(goto-char (point-max))
- (lurk-render-prompt)))
+ (lurk-render-prompt)
+ (if lurk-display-header
+ (lurk-setup-header))))
;;; Output formatting and highlighting
(if (equal to lurk-nick) from to))))
(lurk-display-string
context
- (concat "* " from)
+ (propertize
+ (concat context " * " from)
+ 'face (lurk-get-context-facelist context))
action-text)))
(defun lurk-display-notice (context &rest notices)
(setq lurk-debug (not lurk-debug))
(lurk-display-notice nil "Debug mode now " (if lurk-debug "on" "off") "."))
+ ((rx "HEADER")
+ (if header-line-format
+ (progn
+ (setq-local header-line-format nil)
+ (lurk-display-notice nil "Header disabled."))
+ (lurk-setup-header)
+ (lurk-display-notice nil "Header enabled.")))
+
((rx (: "CONNECT " (let network (* not-newline))))
(lurk-display-notice nil "Attempting to connect to " network "...")
(lurk-connect network))
(setq lurk-nick nick)
(lurk-display-notice nil "Set default nick to '" nick "'")))
- ((rx "LIST")
+ ((rx (: "LIST" (* whitespace) string-end))
(lurk-display-notice nil "This command can generate lots of output. Use `LIST -yes' if you're sure."))
- ((rx (: "LIST" (+ whitespace) "-YES"))
+ ((rx (: "LIST" (+ whitespace) "-YES" (* whitespace) string-end))
(lurk-send-msg (lurk-msg nil nil "LIST")))
((rx "MSG "