(goto-char lurk-prompt-marker)
(let ((inhibit-read-only t)
(old-pos (marker-position lurk-prompt-marker))
- (adaptive-fill-regexp (rx (= 6 anychar))))
+ (adaptive-fill-regexp (rx (= 6 anychar)))
+ (fill-column 80))
(insert-before-markers
(propertize (concat (format-time-string "%H:%M") " ")
'face 'lurk-text
'read-only t)
(propertize (concat (apply #'concat strings) "\n")
'read-only t))
- (fill-region old-pos lurk-prompt-marker)))))
+ (fill-region old-pos lurk-prompt-marker nil t)))))
(defun lurk-render-prompt ()
(with-current-buffer "*lurk*"
(defun lurk-eval-msg-string (string)
;; (lurk-display-string string)
(let* ((msg (lurk-string->msg string)))
+ ;; (message (pp msg))
(pcase (lurk-msg-cmd msg)
("PING"
(lurk-send-msg
("NICK"
(let ((old-nick (lurk-msg-src msg))
(new-nick (car (lurk-msg-params msg))))
- (lurk-display-notice nil nick " is now known as " new-nick)
- (lurk-rename-user nick new-nick)))
+ (lurk-display-notice nil old-nick " is now known as " new-nick)
+ (lurk-rename-user old-nick new-nick)))
("NOTICE"
(let ((nick (lurk-msg-src msg))