Add `circe-current-topic' and make topsy.el use it

1 files changed, 16 insertions, 0 deletions

@@ -8,6 +8,22 @@
 
 (require 'circe)
 
+;;; Functions
+
+(defun circe-current-topic (&optional message)
+  "Return the topic of the current channel.
+When called with MESSAGE set to non-nil (or interactively), also
+message the current topic."
+  (interactive "p")
+  (let ((topic
+         (save-excursion
+           (re-search-backward (rx "*** Topic for #" (+ (or word "-")) ": "))
+           (buffer-substring-no-properties
+            (match-end 0) (line-end-position)))))
+    (when message
+      (message "%s" topic))
+    topic))
+
 ;;; Chat commands
 
 (defun circe-command-SHORTEN (url)