Use qubes-gpg-split to do IRC passwords

2 files changed, 46 insertions, 49 deletions

diff --git a/emacs/inits/01-basic.el b/emacs/inits/01-basic.el
index 04c2a83..c716998 100644
--- a/emacs/inits/01-basic.el
+++ b/emacs/inits/01-basic.el
@@ -1,4 +1,4 @@
-;; Time-stamp: <2021-03-22 11h49 EDT (hobbies)>
+;; Time-stamp: <2021-04-09 14h21 EDT (hobbies)>
 
 ;; -----------------------------------------------------------------------------
 ;; Interface
@@ -49,10 +49,18 @@
 ;; (set-fringe-mode 128)
 
 ;; -----------------------------------------------------------------------------
+;; Qubes-specific stuff
+
+;; For some reason this doesn't seem to work using setq/-defuault and
+;; requires... ?
+(custom-set-variables
+ '(epg-gpg-program "/usr/bin/qubes-gpg-client-wrapper"))
+
+;; -----------------------------------------------------------------------------
 ;; Backups
 
 (setq backup-by-copying t
-			backup-directory-alist '((".*" . "~/store/backups/"))
+			backup-directory-alist '(("." . "/home/user/store/backups/"))
 			delete-old-versions t
 			kept-new-versions 6
 			kept-old-versions 2
diff --git a/emacs/inits/30-irc.el b/emacs/inits/30-irc.el
index efd4bdc..edc33b2 100644
--- a/emacs/inits/30-irc.el
+++ b/emacs/inits/30-irc.el
@@ -1,51 +1,40 @@
-;; Time-stamp: <2020-04-13 14:38:51 (tslil@bison)>
+;; Time-stamp: <2021-04-09 14h12 EDT (hobbies)>
 
 (use-package rcirc
-  :ensure t
-  :defer
-  :hook (rcirc-mode . (lambda ()
-                        (rcirc-track-minor-mode)
-                        (spell-fu-mode 1)
-                        (set (make-local-variable 'scroll-conservatively) 8192)))
-  :config
-  (use-package rcirc-color
-    :ensure t
-    :if (window-system))
+	:ensure t
+	:defer
+	:hook (rcirc-mode . (lambda ()
+												(rcirc-track-minor-mode)
+												(spell-fu-mode 1)
+												(set (make-local-variable 'scroll-conservatively) 8192)))
+	:config
+	(use-package rcirc-color
+		:ensure t
+		:if (window-system))
 
-  (require 'auth-source)
+	(require 'auth-source)
+	(defadvice rcirc (before rcirc-read-from-authinfo activate)
+		(unless arg
+			(dolist (p (auth-source-search :port '("nickserv")
+																		 :require '(:port :user :secret)))
+				(let ((secret (plist-get p :secret))
+							(method (intern (plist-get p :port))))
+					(add-to-list 'rcirc-authinfo
+											 (list (plist-get p :host)
+														 method
+														 (plist-get p :user)
+														 (if (functionp secret)
+																 (funcall secret)
+															 secret)))))))
 
-  (defadvice rcirc (before rcirc-read-from-authinfo activate)
-    (unless arg
-      (dolist (p (auth-source-search :port '("nickserv"
-                                             "bitlbee"
-                                             "quakenet")
-                                     :require '(:port :user :secret)))
-        (let ((secret (plist-get p :secret))
-              (method (intern (plist-get p :port))))
-          (add-to-list 'rcirc-authinfo
-                       (list (plist-get p :host)
-                             method
-                             (plist-get p :user)
-                             (if (functionp secret)
-                                 (funcall secret)
-                               secret)))))))
-
-  (setq rcirc-default-full-name "tslil"
-        rcirc-default-nick "maximum_yellow"
-        rcirc-default-user-name "maximum_yellow"
-        rcirc-time-format "%Y-%m-%d %H:%M "
-        rcirc-log-directory "~/logs/irc/"
-        rcirc-fill-column 80
-        rcirc-log-flag t
-        rcirc-server-alist nil
-        ;; '(("irc.freenode.net"
-        ;;    :port 6697
-        ;;    :encryption tls
-        ;;    :channels ("#emacs" "#guix"))
-        ;;   ("127.0.0.1"
-        ;;    :port 6667
-        ;;    :nick "tslil"
-        ;;    :user-name "tslil"
-        ;;    :channels ("&bitlbee"))
-        ;;   )
-        ))
+	(setq rcirc-default-full-name "tslil"
+				rcirc-default-nick "hiato"
+				rcirc-default-user-name "hiato"
+				rcirc-time-format "%Y-%m-%d %H:%M "
+				rcirc-log-directory "~/logs/irc/"
+				rcirc-fill-column 80
+				rcirc-log-flag t
+				rcirc-server-alist '(("irc.freenode.net"
+															:port 6697
+															:encryption tls
+															:channels '("#esoteric" "#zig")))))