feat: Included the emacs configdendritic

Some packages are built with nix and some are still built with emacs

1 files changed, 47 insertions, 0 deletions

diff --git a/modules/home-manager/emacs/config/lisp/emacs-says.el b/modules/home-manager/emacs/config/lisp/emacs-says.el
new file mode 100644
index 0000000..78e7fc5
--- /dev/null
+++ b/modules/home-manager/emacs/config/lisp/emacs-says.el
@@ -0,0 +1,47 @@
+;;; emacs-says.el --- Some quotes from #emacs on libera.chat
+
+;; Author: TehBoss
+;; Version: 0.1
+
+;;; Commentary:
+;; This package provides functions to get some funny quotes
+;; Make sure you have emacs-quotes.txt in the same directory as this file
+
+;;;###autoload
+(defvar emacs-says-quotes
+  nil
+  "Quotes for `emacs-says-quote`")
+
+(defcustom emacs-says-default-file
+  (expand-file-name "emacs-quotes.txt" (file-name-directory load-file-name))
+  "Default file for `emacs-says-load-quotes'")
+
+(defun emacs-says-load-quotes (&optional file)
+  "Loads the quotes from FILE into the `emacs-says-quotes' variable
+If FILE is not specified use `emacs-says-default-file'"
+  (unless file
+	(setq file emacs-says-default-file))
+  (setq emacs-says-quotes nil)
+  (save-excursion
+	(set-buffer (find-file-noselect file))
+	(goto-char (point-min))
+	(while (re-search-forward "^[^\n]+$" (point-max) 1)
+	  (push (match-string 0) emacs-says-quotes))
+	(kill-buffer))
+  (setq emacs-says-quotes (reverse emacs-says-quotes)))
+
+(defun emacs-says-quote (&optional quote)
+  "Gets a random quote from `emacs-says-quotes' or gives the quote specified by QUOTE"
+  (interactive)
+  (if emacs-says-quotes
+	  (progn
+		(if quote
+			(setq quote (1- quote))
+		  (setq quote (random (length emacs-says-quotes))))
+		(if (or (>= quote (length emacs-says-quotes)) (<= quote -1))
+			(message "Quote value too high or too low")
+		  (message (nth quote emacs-says-quotes)))
+		(nth quote emacs-says-quotes))
+  	(message "Emacs quotes not loaded, use `emacs-says-load-quotes'")))
+
+(provide 'emacs-says)