summary refs log tree commit diff stats
path: root/lisp/acdw.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/acdw.el')
-rw-r--r--lisp/acdw.el72
1 files changed, 36 insertions, 36 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el index 26d1494..99ab733 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el
@@ -297,44 +297,44 @@ always nil; this function is mostly intended for use in init."
297 (setq r (concat r str))) 297 (setq r (concat r str)))
298 r)) 298 r))
299 299
300(defun chat-disconnect () 300;; (defun chat-disconnect ()
301 "Disconnect from all chats." 301;; "Disconnect from all chats."
302 (interactive) 302;; (interactive)
303 (+with-progress "Quitting circe..." 303;; (+with-progress "Quitting circe..."
304 (ignore-errors 304;; (ignore-errors
305 (circe-command-GQUIT "peace love bread") 305;; (circe-command-GQUIT "peace love bread")
306 (cancel-timer (irc-connection-get conn :flood-timer)))) 306;; (cancel-timer (irc-connection-get conn :flood-timer))))
307 (+with-progress "Quitting jabber..." 307;; (+with-progress "Quitting jabber..."
308 (ignore-errors 308;; (ignore-errors
309 (jabber-disconnect))) 309;; (jabber-disconnect)))
310 (when (boundp '+slack-teams) 310;; (when (boundp '+slack-teams)
311 (+with-progress "Quitting-slack..." 311;; (+with-progress "Quitting-slack..."
312 (dolist (team +slack-teams) 312;; (dolist (team +slack-teams)
313 (ignore-errors 313;; (ignore-errors
314 (slack-team-disconnect team))) 314;; (slack-team-disconnect team)))
315 (ignore-errors (slack-ws-close)))) 315;; (ignore-errors (slack-ws-close))))
316 (+with-progress "Killing buffers..." 316;; (+with-progress "Killing buffers..."
317 (ignore-errors 317;; (ignore-errors
318 (+mapc-some-buffers (lambda () "Remove the buffer from tracking and kill it unconditionally." 318;; (+mapc-some-buffers (lambda () "Remove the buffer from tracking and kill it unconditionally."
319 (let ((kill-buffer-query-functions nil)) 319;; (let ((kill-buffer-query-functions nil))
320 (tracking-remove-buffer (current-buffer)) 320;; (tracking-remove-buffer (current-buffer))
321 (kill-buffer))) 321;; (kill-buffer)))
322 (lambda () "Return t if derived from the following modes." 322;; (lambda () "Return t if derived from the following modes."
323 (derived-mode-p 'lui-mode 323;; (derived-mode-p 'lui-mode
324 'jabber-chat-mode 324;; 'jabber-chat-mode
325 'jabber-roster-mode 325;; 'jabber-roster-mode
326 'jabber-browse-mode 326;; 'jabber-browse-mode
327 'slack-mode)))))) 327;; 'slack-mode))))))
328 328
329;; I can never remember all the damn chat things I run, so this just does all of em. 329;; I can never remember all the damn chat things I run, so this just does all of em.
330(defun chat (&optional arg) 330;; (defun chat (&optional arg)
331 "Initiate all chat functions. 331;; "Initiate all chat functions.
332With optional ARG, kill all chat-related buffers first." 332;; With optional ARG, kill all chat-related buffers first."
333 (interactive "P") 333;; (interactive "P")
334 (when arg (chat-disconnect)) 334;; (when arg (chat-disconnect))
335 (dolist-with-progress-reporter (fn chat-functions) 335;; (dolist-with-progress-reporter (fn chat-functions)
336 "Connecting to chat..." 336;; "Connecting to chat..."
337 (call-interactively fn))) 337;; (call-interactively fn)))
338 338
339(defun +forward-paragraph (arg) 339(defun +forward-paragraph (arg)
340 "Move forward ARG (simple) paragraphs. 340 "Move forward ARG (simple) paragraphs.