diff options
| author | bard <[email protected]> | 2024-04-02 13:34:05 -0400 |
|---|---|---|
| committer | bard <[email protected]> | 2024-04-02 13:34:05 -0400 |
| commit | a36fe62ebd484102ddd35471f10fa9109b4fb281 (patch) | |
| tree | 113f05b453ed525450c231d6e5cec343f9261015 | |
| parent | 244069251b5b184f0367f99fa3a31fd9b54350ba (diff) | |
combined files
| -rw-r--r-- | bard-emacs-modules/bard-emacs-circe.el | 23 | ||||
| -rw-r--r-- | bard-emacs-modules/bard-emacs-web.el | 24 |
2 files changed, 24 insertions, 23 deletions
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) |