1 files changed, 105 insertions, 0 deletions
diff --git a/emacs/.emacs.d/init/oni-circe-init.el b/emacs/.emacs.d/init/oni-circe-init.el
new file mode 100644
index 0000000..27484cc
--- /dev/null
+++ b/emacs/.emacs.d/init/oni-circe-init.el
@@ -0,0 +1,105 @@
+;;; oni-circe-init.el --- My Circe configuration     -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2018  Tom Willemse
+
+;; Author: Tom Willemse <tom@ryuslash.org>
+;; Keywords: local
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; My Circe configuration
+
+;;; Code:
+
+(require 'circe)
+(require 'circe-color-nicks)
+(require 'circe-serenity)
+(require 'oni-circe)
+;(require 'mowedline)
+
+(add-to-list 'circe-network-options
+             `("Freenode"
+               :nick "ryuslash"
+               :channels ("#mowedline"
+                          "#ninthfloor"
+                          "#dispass"
+                          "#linuxvoice"
+                          "#conkeror"
+                          "#emacs-circe"
+                          "#chicken"
+                          :after-auth
+                          "#emacs")
+               :nickserv-password
+               ,(oni-circe-get-password-for "irc.freenode.net")))
+
+(add-to-list 'circe-network-options
+             `("Twitch"
+               :use-tls nil
+               :nick "ryuslash"
+               :host "irc.twitch.tv"
+               :pass ,(oni-circe-get-password-for "irc.twitch.tv")
+               :port 6667))
+
+(enable-circe-color-nicks)
+
+(enable-circe-serenity)
+
+(defun mowedline-colorize-mode-line-spec (s)
+  (cond
+   ((stringp s) (string-trim s))
+   ((eq ':propertize (car s))
+    (let ((s (cadr s))
+          (face (plist-get (cddr s) 'face)))
+      (if face
+          `(color ,(face-foreground face)
+                  ,(substring-no-properties s))
+        s)))
+   (t "")))
+
+;(setq mowedline-update-function 'mowedline-update/dbus)
+
+(defvar jjf-tracking-buffers '())
+(defvar jjf-external-tracking-timer nil)
+(defun jjf-external-tracking ()
+  (setq jjf-external-tracking-timer nil)
+  (mowedline-update
+   'irc
+   (if (stringp jjf-tracking-buffers)
+       (mowedline-colorize jjf-tracking-buffers t)
+     (format "%S" (mapcar #'mowedline-colorize-mode-line-spec
+                          jjf-tracking-buffers)))))
+
+(defun oni:clear-irc-mowedline-widget ()
+  (mowedline-clear 'irc))
+
+(defun jjf-external-tracking-advice (orig-fun &rest args)
+  "Update my external status bar when tracking computes a new
+status line, and suppress tracking in the mode-line.  Since
+tracking-status may be called many times in quick succession, for
+example on a make-frame-visible event, we use a short timer to
+only call the updater once within a minimum duration."
+  (setq jjf-tracking-buffers (apply orig-fun args))
+  (when jjf-external-tracking-timer
+    (cancel-timer jjf-external-tracking-timer))
+  (setq jjf-external-tracking-timer
+        (run-at-time 0.2 nil 'jjf-external-tracking))
+  nil)
+
+;(advice-add 'tracking-status :around #'jjf-external-tracking-advice)
+;(add-hook 'kill-emacs-hook 'oni:clear-irc-mowedline-widget)
+
+(provide 'oni-circe-init)
+;;; oni-circe-init.el ends here