diff options
| -rw-r--r-- | emacs/inits/01-basic.el | 12 | ||||
| -rw-r--r-- | emacs/inits/30-irc.el | 83 |
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"))))) |