(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))
(let* ((end (max lurk-input-marker (point)))
(space-idx (save-excursion
(re-search-backward " " lurk-input-marker t)))
- (start (if space-idx (+ 1 space-idx) lurk-input-marker)))
+ (start (if space-idx (+ 1 space-idx) lurk-input-marker))
+ (completion-ignore-case t))
(unless (string-prefix-p "/" (buffer-substring start end))
(completion-in-region start end (lurk-get-context-users lurk-current-context))))))