From a36fe62ebd484102ddd35471f10fa9109b4fb281 Mon Sep 17 00:00:00 2001 From: bard Date: Tue, 2 Apr 2024 13:34:05 -0400 Subject: combined files --- bard-emacs-modules/bard-emacs-circe.el | 23 ----------------------- bard-emacs-modules/bard-emacs-web.el | 24 ++++++++++++++++++++++++ 2 files changed, 24 insertions(+), 23 deletions(-) delete mode 100644 bard-emacs-modules/bard-emacs-circe.el (limited to 'bard-emacs-modules') diff --git a/bard-emacs-modules/bard-emacs-circe.el b/bard-emacs-modules/bard-emacs-circe.el deleted file mode 100644 index 6fb8513..0000000 --- a/bard-emacs-modules/bard-emacs-circe.el +++ /dev/null @@ -1,23 +0,0 @@ -(setq auth-sources '("~/.authinfo.gpg")) - -(defun my-fetch-password (&rest params) - (require 'auth-source) - (let ((match (car (apply 'auth-source-search params)))) - (if match - (let ((secret (plist-get match :secret))) - (if (functionp secret) - (funcall secret) - secret)) - (error "Password not found for %S" params)))) - -(defun my-nickserv-password (server) - (my-fetch-password :user "bardman" :machine "irc.libera.chat")) - -(setq circe-network-options - '(("Libera Chat" - :nick "bardman" - :channels ("#emacs" "##anime" "#gentoo") - :nickserv-password my-nickserv-password))) - - -(provide 'bard-emacs-circe) diff --git a/bard-emacs-modules/bard-emacs-web.el b/bard-emacs-modules/bard-emacs-web.el index 9e32bd9..aa20f3a 100644 --- a/bard-emacs-modules/bard-emacs-web.el +++ b/bard-emacs-modules/bard-emacs-web.el @@ -1,3 +1,27 @@ +;;; IRC +(setq auth-sources '("~/.authinfo.gpg")) + +(defun my-fetch-password (&rest params) + (require 'auth-source) + (let ((match (car (apply 'auth-source-search params)))) + (if match + (let ((secret (plist-get match :secret))) + (if (functionp secret) + (funcall secret) + secret)) + (error "Password not found for %S" params)))) + +(defun my-nickserv-password (server) + (my-fetch-password :user "bardman" :machine "irc.libera.chat")) + +(setq circe-network-options + '(("Libera Chat" + :nick "bardman" + :channels ("#emacs" "##anime" "#gentoo") + :nickserv-password my-nickserv-password))) + +;;; Web Browsing (EWW and Firefox/Librewolf) + (setq browse-url-browser-function 'eww-browse-url) (setq browse-url-secondary-browser-function 'browse-url-default-browser) -- cgit v1.2.3