some irc

2 files changed, 124 insertions, 1 deletions

diff --git a/config.el b/config.el
index a2f63d3627d5..734ea7f996b0 100644
--- a/config.el
+++ b/config.el
@@ -22,8 +22,18 @@
 (load! "utils")
 (load! "company-sql")
 (load! "org-query")
-(load! "nix-yapf-mode")
+;; (load! "nix-yapf-mode")
 (load! "show-matching-paren")
+(load! "irc")
+
+(require 's)
+
+;; (add-to-list 'load-path
+;;              (concat
+;;               (s-trim
+;;                (shell-command-to-string
+;;                 "nix-build --no-link '<nixpkgs>' -A mu"))
+;;               "/share/emacs/site-lisp/mu4e"))
 
 ; (defconst rust-src-path
 ;   (-> "/Users/griffin/.cargo/bin/rustc --print sysroot"
diff --git a/irc.el b/irc.el
new file mode 100644
index 000000000000..1d56d787c422
--- /dev/null
+++ b/irc.el
@@ -0,0 +1,113 @@
+;;; ~/.doom.d/irc.el
+
+(require 'erc)
+(require 'alert)
+
+(defun irc-connect ()
+  (interactive)
+  (let ((pw (let* ((irc-pw (first
+                            (auth-source-search :host "znc.gws.fyi"
+                                                      :max 1)))
+                   (secret (plist-get irc-pw :secret)))
+              (if (functionp secret) (funcall secret))))
+        (gnutls-verify-error nil))
+    (erc-tls :server "znc.gws.fyi"
+             :port 5000
+             :nick "glittershark"
+             :password (concat "glittershark/freenode:" pw))))
+
+
+(defgroup erc-alert nil
+  "Alert me using alert.el for important ERC messages"
+  :group 'erc)
+
+(defcustom erc-noise-regexp
+  "\\(Logging in:\\|Signing off\\|You're now away\\|Welcome back\\)"
+  "This regexp matches unwanted noise."
+  :type 'regexp
+  :group 'erc)
+
+(setq tvl-enabled? t)
+
+(defun erc-alert-important-p (info)
+  (setq last-info info)
+  (let ((message (plist-get info :message))
+        (erc-message (-> info (plist-get :data) (plist-get :message)))
+        (erc-channel (-> info (plist-get :data) (plist-get :channel))))
+    (and erc-message
+         (not (or (string-match "^\\** *Users on #" message)
+                  (string-match erc-noise-regexp
+                                message)))
+         (or (and tvl-enabled?
+                  (string-equal erc-channel "##tvl"))
+             (string-match "glittershark" message)))))
+
+(comment
+ last-info
+ erc-noise-regexp
+ (setq tvl-enabled? nil)
+ )
+
+(defun my-erc-hook (&optional match-type nick message)
+  "Shows a notification, when user's nick was mentioned.
+If the buffer is currently not visible, makes it sticky."
+  (setq last-message message)
+  (if (or (null match-type) (not (eq match-type 'fool)))
+      (let (alert-log-messages)
+        (alert (or message (buffer-string))
+               :severity (if (string-match "glittershark" (or message ""))
+                             'high 'low)
+               :title (or nick (buffer-name))
+               :data `(:message ,(or message (buffer-string))
+                                :channel ,(or nick (buffer-name)))))))
+
+(add-hook 'erc-text-matched-hook 'my-erc-hook)
+(add-hook 'erc-insert-modify-hook 'my-erc-hook)
+
+(defun my-erc-define-alerts (&rest ignore)
+  ;; Unless the user has recently typed in the ERC buffer, highlight the fringe
+  (alert-add-rule
+   :status   '(buried visible idle)
+   :severity '(moderate high urgent)
+   :mode     'erc-mode
+   :predicate
+   #'(lambda (info)
+       (and (not (eq (current-buffer) (plist-get info :buffer)))
+            (string-match "glittershark:" (plist-get info :message))))
+   :persistent
+   #'(lambda (info)
+       ;; If the buffer is buried, or the user has been idle for
+       ;; `alert-reveal-idle-time' seconds, make this alert
+       ;; persistent.  Normally, alerts become persistent after
+       ;; `alert-persist-idle-time' seconds.
+       (memq (plist-get info :status) '(buried idle)))
+   :style 'message
+   :continue t)
+
+  (alert-add-rule
+   :status 'buried
+   :mode   'erc-mode
+   :predicate #'erc-alert-important-p
+   :style 'libnotify
+   :append t)
+
+  (alert-add-rule
+   :status 'buried
+   :mode   'erc-mode
+   :predicate #'erc-alert-important-p
+   :style 'message
+   :append t)
+
+  (alert-add-rule
+   :mode 'erc-mode
+   :predicate #'erc-alert-important-p
+   :style 'log
+   :append t)
+
+  (alert-add-rule :mode 'erc-mode :style 'ignore :append t))
+
+(add-hook 'erc-connect-pre-hook 'my-erc-define-alerts)
+
+(comment
+ (my-erc-define-alerts)
+ )