blob: 78e7fc53c5551ccf7993beca138d1865fd9f2d70 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
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)
|
