1 files changed, 15 insertions, 1 deletions

@@ -48,7 +48,21 @@
 (defun +circe-current-topic (&optional message)
   "Return the topic of the current channel.
 When called with optional MESSAGE non-nil, or interactively, also
-message the current topic.")
+message the current topic."
+  (interactive "p")
+  (let ((topic
+         (save-excursion
+           (goto-char (point-max))
+           (or (re-search-backward
+                (rx (group "*** "
+                           (or "Topic" "topic" "TOPIC")
+                           (* (not ":")) ": ")
+                    (group (+ nonl)))))
+           (buffer-substring-no-properties
+            (match-beginning 2) (match-end 2)))))
+    (when message
+      (message "%s" topic))
+    topic))
 
 ;;; Formatting messages