kaka.farm

commit 3d3c31fc21e3e561b66daeecaa636cb03078149c
parent 1301046e0e3ae596ead1151e4b6f0003a7423f55
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Fri,  5 Jan 2024 00:57:44 +0200

Tone down the self-hatred, update clipboard-speaker a bit, add help message to diceware, and link GNU Guile.

Diffstat:
M
haunt.scm
 | 
5
++++-
M
kakafarm/index.scm
 | 
6
+-----
M
kakafarm/software/clipboard-speaker.scm
 | 
44
+++++++++++++++++++++++++-------------------
M
kakafarm/software/diceware.scm
 | 
20
+++++++++++++++++++-

4 files changed, 49 insertions(+), 26 deletions(-)
diff --git a/haunt.scm b/haunt.scm
@@ -32,7 +32,10 @@
   '(p "Built with "
       (a (@ (href "https://dthompson.us/projects/haunt.html"))
          "David Thompson's Haunt")
-      "!  Find more related sites at "
+      " (a "
+      (a (@ (href "https://www.gnu.org/software/guile/"))
+         "GNU Guile")
+      " Static Site Generator)!  Find more related sites at "
       (a (@ (href "https://awesome.haunt.page/"))
          "Awesome Haunt") "!"))
 
diff --git a/kakafarm/index.scm b/kakafarm/index.scm
@@ -4,11 +4,7 @@
 
   (begin
     (define* (make-index-sxml #:key posts)
-      `(div (h1 "Everything I do is shit, hence: "
-                (br)
-                (a (@ (href "https://kaka.farm/"))
-                   "Kaka Farm"))
-            (h2 "Software:")
+      `(div (h2 "Software:")
             (a (@ (href "/software/"))
                "Various software!")
 
diff --git a/kakafarm/software/clipboard-speaker.scm b/kakafarm/software/clipboard-speaker.scm
@@ -6,30 +6,36 @@
     (define* (make-sxml #:key posts)
       `(div
         (h2 "Clipboard Speaker")
-        (p "An accessibility tool that reads either what you mark with your mouse:"
-           (dl
-            (dt "Python")
+        (p "An accessibility tool that reads either what you mark with your mouse.")
+        (p (em "NOTICE: ")
+           "The Python version is obsolete.  Use the GNU Guile one instead.")
 
-            (dd (pre "clipboard-speaker -p"))
+        (dl
+         (dt "GNU Guile")
+         (dd (pre "clipboard-speaker --clipboard-type=p"))
 
-            (dt "Guile>")
-            (dd (pre "clipboard-speaker --clipboard-type=p")))
+         (dt "Python")
+         (dd (pre "clipboard-speaker -p")))
 
-           "Or the contents of your clipboard:"
+        "Or the contents of your clipboard:"
 
-           (dl
-            (dt "Python")
-            (dd (pre "clipboard-speaker -b"))
-            (dt "Guile")
-            (dd (pre "clipboard-speaker --clipboard-type=b")))
+        (dl
+         (dt "GNU Guile")
+         (dd (pre "clipboard-speaker --clipboard-type=b"))
+
+         (dt "Python")
+         (dd (pre "clipboard-speaker -b")))
+
+
+        (a (@ (href "https://sr.ht/~kakafarm/clipboard-speaker/"))
+           "Clipboard Speaker's Sourcehut repositories")
+
+        (h3 "GNU Guile Clipboard Speaker")
+        (p "The current rewrite it in GNU Guile:"
+           (a (@ (href "https://git.sr.ht/~kakafarm/clipboard-speaker/"))
+              "GNU Guile Clipboard Speaker's Sourcehut repository"))
 
-           (a (@ (href "https://sr.ht/~kakafarm/clipboard-speaker/"))
-              "Clipboard Speaker's Sourcehut repositories"))
         (h3 "Python Clipboard Speaker")
         (p "The original Python code:"
            (a (@ (href "https://git.sr.ht/~kakafarm/clipboard-speaker/"))
-              "Python Clipboard Speaker's Sourcehut repository"))
-        (h3 "Guile Clipboard Speaker")
-        (p "Also rewritten it in Guile:"
-           (a (@ (href "https://git.sr.ht/~kakafarm/clipboard-speaker/"))
-              "Guile Clipboard Speaker's Sourcehut repository"))))))
+              "Python Clipboard Speaker's Sourcehut repository"))))))
diff --git a/kakafarm/software/diceware.scm b/kakafarm/software/diceware.scm
@@ -8,4 +8,22 @@
         (h2 "Rusty Diceware")
         (p
          (a (@ (href "https://gitlab.com/yuvallanger/rusty-diceware/"))
-            "A diceware tool in Rustlang."))))))
+            "A diceware tool in Rustlang."))
+
+        (pre "$ diceware --help
+Usage: diceware [options]
+
+Options:
+    -h, --help          This help message.
+    -e, --entropy       Display number of entropy bits.
+    -r, --dicerolls     Provide results of physical dice rolls. Word per line,
+                        same digit order as in the files, digits between and
+                        including 1 and 6.
+    -n, --nword NWORD   Number of words in a passphrase.
+    -d, --delimiter DELIM
+                        The delimiter character used to separate the words.
+    -f, --wordlist-file FILE
+                        Path to a wordlist file.
+    -l, --wordlist WORDLIST
+                        Wordlist to use. (efflong (default), effshort1,
+                        effshort2, minilock, reinhold, or beale)")))))