;;; litanize.el --- Generate "Latour Litanies" -*- lexical-binding: t; -*-

;; Copyright 2019 FoAM oü
;;
;; AUTHOR: nik gaffney <nik@fo.am>
;; Created: 2019-01-19
;; Version: 0.1
;; Package-Requires: ((emacs "24.1") (enlive "0.0.1") (s "1.12.0"))
;; Keywords: tools, Latour Litany, alien phenomenology, ontography, metaphorism, carpentry
;; URL: https://github.com/zzkt/litanize

;; This file is not part of GNU Emacs.

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to the Free Software
;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.


;;; Commentary:

;; A simple version of Ian Bogost's method of generating "Latour Litanies"
;; from random wikipedia titles as an exercise in ontography, metaphorism,
;; and carpentry
;;
;; Currently uses random wikipedia titles as elements.  Might be extended to
;; use other lists in other futures.
;; 
;; 'M-x litanize'  will generate a litany in a new buffer
;;
;; 'M-x insert-litany' will generate a litany at the point
;;
;; further -> http://bogost.com/writing/blog/latour_litanizer/

;;; Revision history:
;; 
;;  - 2019-01-19 - preliminary carpentry
;;  - 2019-12-12 - melpa emersion, stochastism


;;; Code:

(defgroup litanize nil
  "Generating 'Latour Litanies' as an exercise in ontography, metaphorism, and carpentry"
  :group 'stochastism)

(require 's)
(require 'enlive)

(defun litanize-wp-title ()
  "Return a random wikipedia title."
  (s-chop-suffix
   " - Wikipedia"
   (nth 2 (enlive-query
	   (enlive-fetch "https://en.wikipedia.org/wiki/Special:Random")
	   [title]))))


;;;###autoload
(defun litanize-litany (length)
  "Create an arbitary (or random) LENGTH litany in its own buffer."
    (interactive "nHow long a litany? ")
  (with-current-buffer (get-buffer-create "*Latour litany*")
    (erase-buffer)
    (when (<= length 3) (setq length 3))
    (dotimes (i length)
      (insert (litanize-wp-title))
      (cond ((<= i (- length 3)) (insert ", "))
	    ((=  i (- length 2)) (insert " & "))
	    ((=  i (- length 1)) (insert "."))))))

;;;###autoload
(defun litanize ()
  "Create a Latour Litany in its own buffer."
  (interactive)
  (litanize-litany 5))

;;;###autoload
(defun litanize-at-point ()
  "Create a Latour Litany at the current point."
  (interactive)
    (dotimes (i 5)
      (insert (litanize-wp-title))
      (cond ((<= i 2) (insert ", "))
	    ((=  i 3) (insert " & "))
	    ((=  i 4) (insert ".")))))

;; provide an alias to 'insert-litany' avoid potential name collisions
(when (not (fboundp 'insert-litany))
  (fset 'insert-litany #'litanize-at-point))

(provide 'litanize)

;;; litanize.el ends here