feat: toad.md v0.0.1

2021-08-14 20:47:17 -06:00 · 2021-08-14 20:47:17 -06:00 · c7d0d07c24
parent 9bac5ecb70
commit c7d0d07c24
7 changed files with 261 additions and 64 deletions
--- a/00001.md
+++ b/00001.md
@ -4,13 +4,11 @@
 (@)(@)     {0,0}
 (~~~~)    ./)_)
 (>vv<)      " "
-
     \
       ya see, some people go real fast
       and other people they go real slow
 ```

-
 ```
 (@)(@)     {0,0}  -- Hoo?
 (~~~~)    ./)_)
--- a/2
+++ b/2
@ -1,2 +1,2 @@
 default: rss.sh
-	./rss.sh
+	./bin/rss.sh
--- a/bin/rss.sh
+++ b/bin/rss.sh
@ -0,0 +1,18 @@
+#bin/sh
+echo "<rss version=\"2.0\"><channel><title>It's Pro Toad and Superb Owl</title>" > feed.xml
+echo "<link>https://git.tilde.town/dozens/protoadandsuperbowl</link><description>It's Pro Toad and Superb Owl!</description><atom:link rel="self" type="application/rss+xml" href="https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/feed.xml"/><generator>/bin/sh</generator>" >> feed.xml
+
+
+for f in $(find . -type f -iname '*.md' ! -name 'README.md' | sed 's/\.\///'); do
+  echo "<item>
+  <title>$f</title>
+  <link>https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/$f</link>
+  <pubDate>$(stat -f "%m%t%Sm %N" $f | cut -f2 | cut -f1-4 -d ' ')</pubDate>
+  <description><![CDATA[" >> feed.xml
+  pandoc $f >> feed.xml
+  echo "]]></description>
+  </item>" >> feed.xml
+done
+
+echo '</channel></rss>' >> feed.xml
+
--- a/bin/toad.md
+++ b/bin/toad.md
@ -0,0 +1,191 @@
+# toad.md
+
+> the pro toad and superb owl comic generator
+
+## about
+
+This program reads a script file and interpolates its contents with some ascii art, and then writes the result to stdout.
+
+The end goal is automating the creation of [Pro Toad and Superb Owl][ptso] comics.
+
+[ptso]: https://git.tilde.town/dozens/protoadandsuperbowl
+
+## usage
+
+    $ retro toad.md path/to/script.txt > comic.txt
+
+## components
+
+the components of the program are:
+
+1. IO - open the text file, read it line by line, close the file, write to stdout
+
+2. input parser - there are 2 line types in the script file: 
+
+	- a text line, and
+	- a separator line: a special `---` line to separate panels.
+
+3. comic builder - build the first panel, the second panel (no input needed, just output tanel 2), and the 3rd panel (repeat steps needed for 1st panel)
+
+4. panel builder - for as long as art array has length, and as long as the current input line has length or until the input parser hits the separator line or the end of the file, call the line builder with the next line of the art array (if there is one) and the input line.
+
+	If the input line has no length, and the next line is not the separator, have the line builder insert a "blank line" and get a new input line.
+
+5. line builder - given two strings, build a new string containing the first, and appending words from the second up to a total of ~80 cols.
+
+## argument validation
+
+print a helpful message if the script is called without an argument
+
+TODO: is `script:get-argument` an array? check to see if length equal zero
+
+    'ARGS s:put nl
+    script:get-argument a:length n:put
+
+## panels
+
+okay let's go
+
+There are two panels: one where toad speaks, and one where owl speaks. Let's save each to an array, one string per line.
+
+Here's toad (panels 1 & 3):
+
+~~~
+'toad var
+{
+'_(@)(@)_____{0,0}__
+'_(~~~~)____./)_)___
+'_(>vv<)______"_"___
+'___________________
+'_____\_____________
+} !toad
+~~~
+
+Here's owl (panel 2):
+
+~~~
+'owl var
+{
+'_(@)(@)_____{0,0}__--_Hoo?
+'_(~~~~)____./)_)__________
+'_(>vv<)______"_"__________
+} !owl
+~~~
+
+Also here are some code fences, because we'll need those too:
+
+~~~
+:fences  '``` s:put nl ;
+~~~
+
+## Input/output
+
+open the file for reading and save the file handle to `file`
+
+save the file fize. we'll use this to check for end of file.
+
+~~~
+'handle var
+'size var
+
+#0 script:get-argument
+file:open-for-reading !handle !size
+
+:get-line  @handle file:read-line ;
+~~~
+
+## Input Parser
+
+TODO: this isn't tested or used anywhere yet.
+
+~~~
+{{
+  :end-of-file? (-)  @handle file:tell @size gteq? ;
+  :separator? (m-f)  '--- eq? ;
+---reveal---
+  :end-of-section? (-f)  separator? end-of-file? or ;
+}}
+~~~
+
+## Line wrapping
+
+Here's a line wrapping module.
+
+~~~
+{{
+  #0 'displayed var-n
+  #40 'wrap-at var-n
+  :wrap?  dup @displayed + @wrap-at gt? ;
+  :display  [ nl !displayed ] [ displayed v:inc-by ] choose s:put sp ;
+---reveal---
+  :s:put-wrapped (s-)  ASCII:SPACE s:tokenize
+    [ dup s:length wrap? display ] a:for-each
+    #0 !displayed ;
+}}
+~~~
+
+src:
+
+<https://github.com/crcx/retroforth/blob/master/example/wordwrap.retro>
+
+
+## Panel 1
+
+print out the first panel
+
+ascii art:
+
+~~~
+fences
+@toad [ s:put nl ] a:for-each
+~~~
+
+text:
+
+~~~
+[
+  get-line
+  dup s:put-wrapped
+  '--- s:eq? not
+  dup [ nl nl ] if
+] while
+nl fences nl nl
+~~~
+
+TODO: don't print `---` line.
+
+
+## Panel 2
+
+~~~
+fences
+@owl [ s:put nl ] a:for-each
+fences nl nl
+~~~
+
+## Panel 3
+
+print the ascii:
+
+~~~
+fences
+@toad [ s:put nl ] a:for-each
+~~~
+
+print the text:
+
+~~~
+[
+  get-line dup s:put-wrapped
+  #0
+  dup [ nl nl ] if
+] while
+nl fences
+drop
+~~~
+
+TODO: loop till end of file
+
+## Conclusion
+
+That's all! That's the end
--- a/feed.xml
+++ b/feed.xml
@ -1,9 +1,10 @@
 <rss version="2.0"><channel><title>It's Pro Toad and Superb Owl</title>
+<link>https://git.tilde.town/dozens/protoadandsuperbowl</link><description>It's Pro Toad and Superb Owl!</description><atom:link rel=self type=application/rss+xml href=https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/feed.xml/><generator>/bin/sh</generator>
 <item>
-<title>00004.md</title>
-<link>https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/00004.md</link>
-<pubDate>Feb 11 17:48:03 2021</pubDate>
-<description><![CDATA[
+  <title>00004.md</title>
+  <link>https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/00004.md</link>
+  <pubDate>Feb 11 17:48:03 2021</pubDate>
+  <description><![CDATA[
 <h1 id="pro-toad-and-superb-owl">Pro Toad and Superb Owl</h1>
 <pre><code> (@)(@)     {0,0}
 (~~~~)    ./)_)
@ -25,12 +26,12 @@
       Yep! I guess you could say it
       was a SUPER BOWL PROTO AD!</code></pre>
 ]]></description>
-</item>
+  </item>
 <item>
-<title>00001.md</title>
-<link>https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/00001.md</link>
-<pubDate>Feb 10 12:25:55 2021</pubDate>
-<description><![CDATA[
+  <title>00001.md</title>
+  <link>https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/00001.md</link>
+  <pubDate>Feb 10 12:25:55 2021</pubDate>
+  <description><![CDATA[
 <h1 id="pro-toad-and-superb-owl">Pro Toad and Superb Owl</h1>
 <pre><code> (@)(@)     {0,0}
 (~~~~)    ./)_)
@ -50,12 +51,12 @@
       yeah that&#39;s the real root cause
       of most workplace conflict</code></pre>
 ]]></description>
-</item>
+  </item>
 <item>
-<title>00005.md</title>
-<link>https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/00005.md</link>
-<pubDate>Feb 12 10:34:52 2021</pubDate>
-<description><![CDATA[
+  <title>00005.md</title>
+  <link>https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/00005.md</link>
+  <pubDate>Feb 12 10:34:52 2021</pubDate>
+  <description><![CDATA[
 <h1 id="pro-toad-and-superb-owl">Pro Toad and Superb Owl</h1>
 <pre><code> (@)(@)     {0,0}
 (~~~~)    ./)_)
@ -78,12 +79,12 @@
       I can see some flowers and leaves
       and listen to the birds and stuff.</code></pre>
 ]]></description>
-</item>
+  </item>
 <item>
-<title>00008.md</title>
-<link>https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/00008.md</link>
-<pubDate>Feb 26 08:26:45 2021</pubDate>
-<description><![CDATA[
+  <title>00008.md</title>
+  <link>https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/00008.md</link>
+  <pubDate>Feb 26 08:26:45 2021</pubDate>
+  <description><![CDATA[
 <h1 id="pro-toad-and-superb-owl">Pro Toad and Superb Owl</h1>
 <pre><code> (@)(@)     {0,0}  There was a sense of euphoria
 (~~~~)    ./)_)   while we were in flow, like we
@ -108,12 +109,12 @@
  bros invited me to &quot;do some lines&quot; and at this point I
  can&#39;t remember if it was code or coke.</code></pre>
 ]]></description>
-</item>
+  </item>
 <item>
-<title>00009.md</title>
-<link>https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/00009.md</link>
-<pubDate>Apr 17 11:44:45 2021</pubDate>
-<description><![CDATA[
+  <title>00009.md</title>
+  <link>https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/00009.md</link>
+  <pubDate>Apr 17 11:44:45 2021</pubDate>
+  <description><![CDATA[
 <h1 id="pro-toad-and-superb-owl">Pro Toad and Superb Owl</h1>
 <pre><code> (@)(@)     {0,0}  So I picked up a book in the 
 (~~~~)    ./)_)   middle of this epic fantasy series.
@ -140,12 +141,12 @@
  if there&#39;s one thing this world needs more of, it&#39;s mother
  fucking dragons beating the shit out of nazis.</code></pre>
 ]]></description>
-</item>
+  </item>
 <item>
-<title>00002.md</title>
-<link>https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/00002.md</link>
-<pubDate>Feb 11 16:43:59 2021</pubDate>
-<description><![CDATA[
+  <title>00002.md</title>
+  <link>https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/00002.md</link>
+  <pubDate>Feb 11 16:43:59 2021</pubDate>
+  <description><![CDATA[
 <h1 id="pro-toad-and-superb-owl">Pro Toad and Superb Owl</h1>
 <pre><code> (@)(@)     {0,0}
 (~~~~)    ./)_)
@ -166,12 +167,12 @@
       job either. But they keep giving me
       YAML and I keep ENGINEERING it!</code></pre>
 ]]></description>
-</item>
+  </item>
 <item>
-<title>00006.md</title>
-<link>https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/00006.md</link>
-<pubDate>Feb 13 14:11:29 2021</pubDate>
-<description><![CDATA[
+  <title>00006.md</title>
+  <link>https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/00006.md</link>
+  <pubDate>Feb 13 14:11:29 2021</pubDate>
+  <description><![CDATA[
 <h1 id="pro-toad-and-superb-owl">Pro Toad and Superb Owl</h1>
 <pre><code> (@)(@)     {0,0}  Is there even such a thing
 (~~~~)    ./)_)   as &quot;mainstream&quot; anymore? I
@ -203,12 +204,12 @@
 small STREAMS and countercultures as there
 are individual people.</code></pre>
 ]]></description>
-</item>
+  </item>
 <item>
-<title>00007.md</title>
-<link>https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/00007.md</link>
-<pubDate>Feb 26 08:11:25 2021</pubDate>
-<description><![CDATA[
+  <title>00007.md</title>
+  <link>https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/00007.md</link>
+  <pubDate>Feb 26 08:11:25 2021</pubDate>
+  <description><![CDATA[
 <h1 id="pro-toad-and-superb-owl">Pro Toad and Superb Owl</h1>
 <pre><code> (@)(@)     {0,0}
 (~~~~)    ./)_)
@ -224,12 +225,12 @@
 (~~~~)    ./)_)
 (&gt;vv&lt;)      &quot; &quot;</code></pre>
 ]]></description>
-</item>
+  </item>
 <item>
-<title>00003.md</title>
-<link>https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/00003.md</link>
-<pubDate>Feb 11 17:01:15 2021</pubDate>
-<description><![CDATA[
+  <title>00003.md</title>
+  <link>https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/00003.md</link>
+  <pubDate>Feb 11 17:01:15 2021</pubDate>
+  <description><![CDATA[
 <h1 id="pro-toad-and-superb-owl">Pro Toad and Superb Owl</h1>
 <pre><code> (@)(@)     {0,0}
 (~~~~)    ./)_)
@ -247,5 +248,5 @@
     \
       Yeah, me neither.</code></pre>
 ]]></description>
-</item>
+  </item>
 </channel></rss>
--- a/rss.sh
+++ b/rss.sh
@ -1,16 +0,0 @@
-#bin/sh
-echo "<rss version=\"2.0\"><channel><title>It's Pro Toad and Superb Owl</title>" > feed.xml
-
-for f in $(find . -type f -iname '*.md' ! -name 'README.md' | sed 's/\.\///'); do
-  echo "<item>" >> feed.xml
-  echo "<title>$f</title>" >> feed.xml
-  echo "<link>https://git.tilde.town/dozens/protoadandsuperbowl/raw/branch/master/$f</link>" >> feed.xml
-  echo "<pubDate>$(stat -f "%m%t%Sm %N" $f | cut -f2 | cut -f1-4 -d ' ')</pubDate>" >> feed.xml
-  echo "<description><![CDATA[" >> feed.xml
-  pandoc $f >> feed.xml
-  echo "]]></description>" >> feed.xml
-  echo "</item>" >> feed.xml
-done
-
-echo '</channel></rss>' >> feed.xml
-
--- a/src/00001.txt
+++ b/src/00001.txt
@ -0,0 +1,5 @@
+ya see, some people go real fast ya see, some people go real fast ya see, some people go real fast ya see, some people go real fast
+and other people they go real slow
+---
+yeah that's the real root cause of most workplace conflict
+ayup