From f370cfbd985588daaed7f3b62c7f8f5933cf55b1 Mon Sep 17 00:00:00 2001
From: bard <bard@ramiel.attlocal.net>
Date: Tue, 9 Jan 2024 05:30:32 -0500
Subject: initial commit

---
 bard-elisp/bard-terminal.el            |  9 +++++++++
 bard-emacs-modules/bard-emacs-circe.el | 23 +++++++++++++++++++++++
 2 files changed, 32 insertions(+)
 create mode 100644 bard-elisp/bard-terminal.el
 create mode 100644 bard-emacs-modules/bard-emacs-circe.el

diff --git a/bard-elisp/bard-terminal.el b/bard-elisp/bard-terminal.el
new file mode 100644
index 0000000..09901e6
--- /dev/null
+++ b/bard-elisp/bard-terminal.el
@@ -0,0 +1,9 @@
+(defun open-terminal-in-current-directory ()
+  "Open a terminal in the current working directory."
+  (interactive)
+  (let ((default-directory default-directory))
+    (start-process "urxvt-terminal" nil "urxvtc")))
+
+(global-set-key (kbd "C-c t") 'open-terminal-in-current-directory)
+
+(provide 'bard-terminal.el)
diff --git a/bard-emacs-modules/bard-emacs-circe.el b/bard-emacs-modules/bard-emacs-circe.el
new file mode 100644
index 0000000..6fb8513
--- /dev/null
+++ b/bard-emacs-modules/bard-emacs-circe.el
@@ -0,0 +1,23 @@
+(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)
-- 
cgit v1.2.3