1 files changed, 181 insertions, 0 deletions
diff --git a/src/gizmo/wasp-newspaper.el b/src/gizmo/wasp-newspaper.el
new file mode 100644
index 00000000..4a8463ac
--- /dev/null
+++ b/src/gizmo/wasp-newspaper.el
@@ -0,0 +1,181 @@
+;;; wasp-newspaper --- The Effort Post -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+(require 'dash)
+(require 's)
+(require 'f)
+(require 'ht)
+(require 'wasp-utils)
+(require 'wasp-db)
+
+(defvar w/newspaper-todays-articles nil)
+
+(defconst w/newspaper-slogans
+  (list
+   "hello computer"
+   "only on !discord IRC"
+   "GoMoCo HaThPl"
+   "good morning computer"
+   "hack the planet"
+   "!oomfie"
+   "All the news that's fit to prin1"
+   "I use arch by the way"
+   "play void stranger (2023)"
+   "[i](this was sent from godot)[i]"
+   "LCOLONQ Lies in LaTeX"
+   "Super idol's smile / Is not as sweet as yours / The sunlight at noon in August / Does not shine like you / Love the 105 °C you / Distilled water that is pure every drop"
+   "this is where we read about the computer"
+   "brought to you by viewers like you. thank you!"
+   ))
+
+(defconst w/newspaper-prices
+  (list
+   "1 COLON"
+   "3 to 5"
+   "501 Internal Server Error"
+   "$3.50"
+   "206 bpm"
+   "1 boost"
+   "a snack for friend"
+   "59 frames per second"))
+
+(w/defstruct
+ w/newspaper-article
+ headline
+ author
+ content)
+
+(defun w/newspaper-wrap-emoji (s)
+  "Wrap emoji with appropriate TeX in S."
+  (s-replace-regexp "[^[:ascii:]]" (lambda (c) (format "{\\\\figemote %s}" c)) s))
+
+(defun w/newspaper-escape (s)
+  "Apply appropriate subsitutions to S."
+  (s-replace-regexp
+   (rx "\"" (one-or-more (not "\"")) "\"")
+   (lambda (x)
+     (s-concat "``" (s-chop-suffix "\"" (s-chop-prefix "\"" x)) "''"))
+   (s-replace-all
+    '(("&" . "\\&")
+      ("%" . "\\%")
+      ("$" . "\\$")
+      ("#" . "\\#")
+      ("_" . "\\_")
+      ("{" . "\\{")
+      ("}" . "\\}")
+      ("~" . "\\textasciitilde")
+      ("^" . "\\textasciicircum")
+      ("\\" . "\\textbackslash"))
+    s)
+   nil
+   t))
+
+(defun w/newspaper-article-tex (a)
+  "Convert an article A to TeX source."
+  (s-concat
+   "\\byline{"
+   (w/newspaper-wrap-emoji (w/newspaper-escape (w/newspaper-article-headline a)))
+   "}{"
+   (w/newspaper-wrap-emoji (w/newspaper-escape (w/newspaper-article-author a)))
+   "}\n"
+   (w/newspaper-wrap-emoji (w/newspaper-escape (w/newspaper-article-content a)))
+   "\n\\closearticle\n"))
+
+(w/defstruct
+ w/newspaper
+ slogan
+ price
+ articles
+ (edition 1))
+
+(defun w/newspaper-tex (np)
+  "Convert a newspaper NP to TeX source."
+  (s-replace-all
+   (list
+    (cons "FIG_EDITION" (number-to-string (w/newspaper-edition np)))
+    (cons "FIG_SLOGAN" (w/newspaper-slogan np))
+    (cons "FIG_PRICE" (w/newspaper-price np))
+    (cons "FIG_ARTICLES" (apply #'s-concat (-map #'w/newspaper-article-tex (w/newspaper-articles np))))
+    )
+   (w/slurp (w/asset "newspaper/template.tex"))))
+
+(defun w/newspaper-pdf (src k)
+  "Build TeX SRC to PDF.
+Pass the path of the generated PDF to K."
+  (when (get-buffer "*wasp-newspaper-pdf*")
+    (with-current-buffer "*wasp-newspaper-pdf*"
+      (erase-buffer)))
+  (let ((dir (make-temp-file "wasp-newspaper" t))
+        (srcfile (w/tempfile "wasp-newspaper-src" src ".tex")))
+    (make-process
+     :name "wasp-newspaper-pdf"
+     :buffer "*wasp-newspaper-pdf*"
+     :command (list "print-newspaper" srcfile dir)
+     :sentinel
+     (lambda (_ _)
+       (funcall k (f-join dir "newspaper.pdf"))))))
+
+(defvar w/newspaper-test-issue
+  (w/make-newspaper
+   :slogan "hello computer" :price "3 to 5"
+   :articles
+   (list
+    (w/make-newspaper-article
+     :headline "omg hi oomfie"
+     :author "Joel"
+     :content "\\lipsum[1]")
+    (w/make-newspaper-article
+     :headline "omg hi oomfie"
+     :author "Joel"
+     :content "\\lipsum[1]")
+    (w/make-newspaper-article
+     :headline "omg hi oomfie"
+     :author "Joel"
+     :content "\\lipsum[1]")
+    (w/make-newspaper-article
+     :headline "omg hi oomfie"
+     :author "Joel"
+     :content "\\lipsum[1]")
+    )))
+
+(defun w/newspaper ()
+  "Generate and open today's work-in-progress newspaper."
+  (interactive)
+  (w/db-get
+   "newspaper:edition"
+   (lambda (edition)
+     (w/newspaper-pdf
+      (w/newspaper-tex
+       (w/make-newspaper
+        :slogan (w/pick-random w/newspaper-slogans) :price (w/pick-random w/newspaper-prices)
+        :edition (string-to-number edition)
+        :articles
+        w/newspaper-todays-articles))
+      #'find-file))))
+
+(defun w/newspaper-publish ()
+  "Finalize and publish today's work-in-progress newspaper."
+  (interactive)
+  (w/db-get
+   "newspaper:edition"
+   (lambda (edition)
+     (w/newspaper-pdf
+      (w/newspaper-tex
+       (w/make-newspaper
+        :slogan (w/pick-random w/newspaper-slogans) :price (w/pick-random w/newspaper-prices)
+        :edition (string-to-number edition)
+        :articles
+        w/newspaper-todays-articles))
+      (lambda (path)
+        (make-process
+         :name "fig-newspaper-publish"
+         :command (list "scp" path (format "llll@pub.colonq.computer:~/public_html/news/%03d.pdf" edition))
+         :sentinel
+         (lambda (_ _)
+           (w/db-set "newspaper:edition" (number-to-string (1+ (string-to-number edition))))
+           (browse-url (format "https://pub.colonq.computer/~llll/news/%03d.pdf" edition))
+           )))))))
+
+(provide 'wasp-newspaper)
+;;; wasp-newspaper.el ends here