README.md

@@ -2,145 +2,32 @@
 
 for expanding random table entries
 
-1. [Requirements](#requirements)
-2. [Installing](#installing)
-3. [Architecture](#architecture)
-4. [Tutorial](#tutorial)
-   * [Random Selections](#random-selections)
-   * [Expansion](#expansion)
-   * [Filters](#filters)
-5. [Roadmap](#roadmap)
-6. [Resources](#resources)
-
 ## Requirements
 
-- Fennel 1.3.1 on PUC Lua 5.4
-- gnu recutils 1.9: for querying metadata
-- just 1.34.0: just a task runner
+Built with
+Fennel 1.3.1 on PUC Lua 5.4
 
-## Installing
+## Usage
 
 You can run the script: `fennel src/main.fnl`.
 
 Or you can compile a binary and use that.
 See `just compile`.
 
-There is also a vim plugin for the `tbls` format.
-See `vim-tbls/README.md`.
-
-## Architecture
-
-- `src/story.fnl`: core of the project. where all the file handling and text parsing happens
-- `src/main.fnl`: wrapper for story.fnl. the ui.
-- `src/filter.fnl` logic for applying filters to strings
-- `lib/*.fnl` libraries and helper functions
-
-![Autogenerated Dependency Graph][deps]
-
-[deps]: doc/deps.png "Autogenerated Dependency Graph"
-
-## Tutorial
-
-### Random Selections
-
-At its most basic, `tbls` selects a random element from a table.
-
-Suppose you have a few tables:
-
-```
-:: suit
-Hearts
-Bells
-Whistles
-Cups
-Knives
-Shovels
-
-:: card
-Ace
-One
-Two
-[...]
-Queen
-King
-Beast
-```
-
-`tbls` might return "Whistles" from suit.
-Or "Two" from card.
-
-### Expansion
-
-But wait there's more.
-`tbls` will also expand certain text found in a table entry.
-
-Let's add another table:
-
-```
-:: draw
-[card] of [suit]
-```
-
-When you place the name of a table in `[squarebrackets]`,
-then `tbls` views that as a placeholder
-for a random item from that table.
-It will expand that text.
-So 'draw' might end up being "Thief of Shovels"
-or "Twelve or Cups".
-
-### Filters
-
-`tbls` can run arbitary filters on text after expanding it.
-Example filters can be found in `lib/filters.fnl`.
-
-To apply filters,
-dot-chain them at the end
-of a table reference.
-
-Consider the following tables:
-
-```
-:: origin
-Evelyn eats one [fruit.c]
-Evelyn eats many [fruit.c.s]
-
-:: fruit
-banana
-apple
-pear
-```
-
-`s`, `plural`, and `pluralize`
-are all different ways
-to call the 'plural' filter function.
-`c` is 'capitalize.'
-
-Example output:
-
-```
-Evelyn eats one Pear
-Evelyn eats many Bananas
-```
-
-
 ## Roadmap
 
 - [x] random table entries (ADDED in vHydrogen)
 - [x] expanding macros (ADDED in vHydrogen)
-- [x] table files plugin: syntax highlighting + folding (ADDED vHelium)
-- [x] expansion filters (ADDED vHelium)
-- [ ] table context
+- [ ] table files plugin: syntax highlighting + folding
+- [ ] expansion filters 
 
 ## Resources
 
 inspired heavily by tracery:
-<https://github.com/galaxykate/tracery>
+https://github.com/galaxykate/tracery
 
-and this list-to-html geneator from slight adjustments:
-<https://slightadjustments.blogspot.com/p/generator.html>
-
-but also paper elemental's:
-<https://paperelemental.blogspot.com/p/list-to-html-generator.html>
+and paper elemental's list-to-html generator:
+https://paperelemental.blogspot.com/p/list-to-html-generator.html
 
 and perchance:
-<https://perchance.org/welcome>
+https://perchance.org/welcome

doc/History.md

@@ -1,15 +0,0 @@
-# History
-
-`tbls` began as the Story module for a board game I was writing.
-When I completed all the features for the board game itself,
-I wanted to add some kind of a generative story engine
-based on the state of the game
-and on player moves.
-
-This ended up complicating the game quite a bit,
-and also I couldn't figure out how or where
-to actually incorporate the story.
-So I scrapped it for that particular project,
-but continued to develop the story engine on its own.
-
-It became `tbls`.

doc/Tutorial.md

@@ -1,7 +1,5 @@
 ## Tutorial
 
-### Random Selections
-
 At its most basic, `tbls` selects a random element from a table.
 
 Suppose you have a few tables:
@@ -19,19 +17,21 @@ Shovels
 Ace
 One
 Two
-[...]
+...
+Ten
+Eleven
+Twelve
+Thief
 Queen
 King
 Beast
 ```
 
 `tbls` might return "Whistles" from suit.
-Or "Two" from card.
-
-### Expansion
+Or "Twelve" from card.
 
 But wait there's more.
-`tbls` will also expand certain text found in a table entry.
+`tbls` will also expand macros found in table entries.
 
 Let's add another table:
 
@@ -43,40 +43,6 @@ Let's add another table:
 When you place the name of a table in `[squarebrackets]`,
 then `tbls` views that as a placeholder
 for a random item from that table.
-It will expand that text.
-So 'draw' might end up being "Thief of Shovels"
+And it will expand the text.
+So this might end up being "Thief of Shovels"
 or "Twelve or Cups".
-
-### Filters
-
-`tbls` can run arbitary filters on text after expanding it.
-Example filters can be found in `lib/filters.fnl`.
-
-To apply filters,
-dot-chain them at the end
-of a table reference.
-
-Consider the following tables:
-
-```
-:: origin
-Evelyn eats one [fruit.c]
-Evelyn eats many [fruit.c.s]
-
-:: fruit
-banana
-apple
-pear
-```
-
-`s`, `plural`, and `pluralize`
-are all different ways
-to call the 'plural' filter function.
-`c` is 'capitalize.'
-
-Example output:
-
-```
-Evelyn eats one Pear
-Evelyn eats many Bananas
-```

doc/meta.rec

@@ -5,5 +5,5 @@
 name: tbls
 author: dozens@tilde.team
 created: 2024-07-31
-updated: 2024-08-03
-version: Helium
+updated: 2024-08-01
+version: Hydrogen

doc/src/readme.m4

@@ -1,65 +0,0 @@
-changequote(<!,!>)dnl Or else `code blocks` confuse m4
-# tbls
-
-for expanding random table entries
-
-1. [Requirements](#requirements)
-2. [Installing](#installing)
-3. [Architecture](#architecture)
-4. [Tutorial](#tutorial)
-   * [Random Selections](#random-selections)
-   * [Expansion](#expansion)
-   * [Filters](#filters)
-5. [Roadmap](#roadmap)
-6. [Resources](#resources)
-
-## Requirements
-
-- Fennel 1.3.1 on PUC Lua 5.4
-- gnu recutils 1.9: for querying metadata
-- just 1.34.0: just a task runner
-
-## Installing
-
-You can run the script: `fennel src/main.fnl`.
-
-Or you can compile a binary and use that.
-See `just compile`.
-
-There is also a vim plugin for the `tbls` format.
-See `vim-tbls/README.md`.
-
-## Architecture
-
-- `src/story.fnl`: core of the project. where all the file handling and text parsing happens
-- `src/main.fnl`: wrapper for story.fnl. the ui.
-- `src/filter.fnl` logic for applying filters to strings
-- `lib/*.fnl` libraries and helper functions
-
-![Autogenerated Dependency Graph][deps]
-
-[deps]: doc/deps.png "Autogenerated Dependency Graph"
-
-include(<!doc/Tutorial.md!>)
-
-## Roadmap
-
-- [x] random table entries (ADDED in vHydrogen)
-- [x] expanding macros (ADDED in vHydrogen)
-- [x] table files plugin: syntax highlighting + folding (ADDED vHelium)
-- [x] expansion filters (ADDED vHelium)
-- [ ] table context
-
-## Resources
-
-inspired heavily by tracery:
-<https://github.com/galaxykate/tracery>
-
-and this list-to-html geneator from slight adjustments:
-<https://slightadjustments.blogspot.com/p/generator.html>
-
-but also paper elemental's:
-<https://paperelemental.blogspot.com/p/list-to-html-generator.html>
-
-and perchance:
-<https://perchance.org/welcome>

justfile

@@ -1,85 +1,34 @@
-set quiet
-
 # show all recipes
 default:
   just --list --unsorted
 
 # compile binary
-[group('build')]
 compile:
   fennel --compile-binary src/main.fnl tbls /usr/local/lib/liblua.a /usr/local/include/lua5.4
-alias build := compile
-
-# install all
-[group('install')]
-install: install-plugin install-binary
-
-# install vim plugin
-[group('install')]
-install-plugin:
-  cp -r vim-tbls/* ~/.config/nvim
-
-# install binary
-[group('install')]
-install-binary: compile
-  cp tbls ~/bin
-
-# run all tests
-[group('test')]
-test: test-main test-story
 
 # run test file
-[group('test')]
-test-story:
+_test-story:
   fennel test/story.test.fnl
 
 # test main
-[group('test')]
-test-main:
+_test-main:
   for i in $(seq 1 10); do fennel src/main.fnl -i test/morpheme-word-epithet.txt -k name; done
 
-# build all docs
-[group('docs')]
-docs: deps readme
-
-# build readme
-[group('docs')]
-readme:
-  m4 doc/src/readme.m4 > README.md
-
-# create dependency graph
-[group('docs')]
-deps:
-  ag require src \
-    | sed 's/\(.*\.fnl\).*require :\([^\.]*\)\.\([^)]*\)).*/"\1" -> "\2\/\3.fnl"/' \
-    | awk 'BEGIN { print "digraph {" } { print } END { print "}" }' \
-    | dot -Tpng \
-    > doc/deps.png
-
-# create dependency graph but sixel
-[group('docs')]
-depsxl:
-  ag require src \
-    | sed 's/\(.*\.fnl\).*require :\([^\.]*\)\.\([^)]*\)).*/"\1" -> "\2\/\3.fnl"/' \
-    | awk 'BEGIN { print "digraph {" } { print } END { print "}" }' \
-    | dot -Tpng \
-    | magick - -geometry 800 sixel:-
+# run all tests
+test: _test-main _test-story
 
 # bump version
-[group('docs')]
 bump:
   #!/usr/local/bin/bash
-  currname=$(recsel doc/v/meta.rec -P version)
-  currnum=$(recsel doc/v/versions.rec -e "Name = '$currname'" -P Number)
+  currname=$(recsel doc/meta.rec -P version)
+  currnum=$(recsel doc/versions.rec -e "Name = '$currname'" -P Number)
   nextnum=$((currnum + 1))
-  nextname=$(recsel doc/v/versions.rec -e "Number = $nextnum" -P Name)
+  nextname=$(recsel doc/versions.rec -e "Number = $nextnum" -P Name)
   echo "Bumping version from $currname to $nextname:"
-  recset doc/v/meta.rec -f version -s $nextname
-  recset doc/v/meta.rec -f updated -S $(gdate +'%Y-%m-%d')
-  recsel doc/v/meta.rec
+  recset doc/meta.rec -f version -s $nextname
+  recset doc/meta.rec -f updated -S $(gdate +'%Y-%m-%d')
+  recsel doc/meta.rec
 
 # show full metadata
-[group('docs')]
 meta:
-  awk 'FNR==1{print ""}{print}' doc/v/*.rec | recsel -t meta -j version
-
+  awk 'FNR==1{print ""}{print}' doc/*.rec | recsel -t meta -j version

lib/filters.fnl

@@ -1,30 +0,0 @@
-(fn capitalize [s]
-  (s:gsub "." string.upper 1)) 
-
-(fn uppercase [s]
-  (string.upper s))
-
-(fn lowercase [s]
-  (string.lower s))
-
-(fn plural [s]
-  (.. s :s))
-
-{
- :capitalize {
-   :call [:c :cap :capital :capitalize]
-   :fun capitalize
-   }
- :uppercase {
-   :call [:u :upper :uppercase]
-   :fun uppercase
-   }
- :lowercase {
-   :call [:l :lower :lowercase]
-   :fun lowercase
-   }
- :plural {
-   :call [:s :plural :pluralize]
-   :fun plural
-   }
-}

lib/string.fnl

@@ -1,7 +0,0 @@
-(fn split [pattern str]
-  (let [res []]
-    (each [seg (str:gmatch pattern)]
-      (table.insert res seg))
-    res))
-
-{: split}

lib/table.fnl

@@ -1,20 +0,0 @@
-(fn contains? [t x]
-  "does sequence t contain element x?"
-  (accumulate [found false
-               _ v (ipairs t)
-               &until found] ; escape early
-    (or found (= x v))))
-
-(fn keys [t]
-  "takes a table returns a sequential list of its keys"
-  (local out [])
-  (each [k _ (pairs t)] (table.insert out k))
-  out)
-
-(fn has-key? [t k]
-  (contains? (keys t) k))
-
-{: contains?
- : keys
- : has-key?
- }

src/filter.fnl

@@ -1,16 +0,0 @@
-(local {: contains?} (require :lib.table))
-(local {:split split-full} (require :lib.string))
-(local split (partial split-full "[^%.]*"))
-
-(fn filter [s]
-  (let [filters (require :lib.filters)
-       [str & funs] (split s)]
-    (var res str)
-    (each [_ f (ipairs funs)]
-       (each [_ filter (pairs filters)]
-          (when (contains? filter.call f)
-            (set res (filter.fun res)))))
-    res))
-
-{: filter
- }

src/main.fnl

@@ -8,7 +8,6 @@
   (print)
   (print "Basic Options:")
   (print " -h|--help                         print this message and exit")
-  (print " -v|--version                      print version and exit")
   (print " -i|--input <file>                 name of input file")
   (print " -k|--origin-table-key <key>       name of a table in the input file")
   (print " -s|--origin-table-string <string> a string template")
@@ -29,12 +28,6 @@
             (do
               (show-help)
               (os.exit 0)) 
-          (where [a] (or (= a "-v") (= a "--version")))
-            (let [handle (io.popen "recsel doc/meta.rec -P version")
-                  result (handle:read "*a")]
-              (print result)
-              (handle:close)
-              (os.exit 0))
           (where [a input] (or (= a "-i") (= a "--input")))
             (set opts.input input)
           (where [a key] (or (= a "-k") (= a "--origin-table-key")))
@@ -47,7 +40,8 @@
 
 (fn main []
   (let [opts (parse-args arg)
-        corpus (create-corpus opts.input)]
+        corpus (create-corpus opts.input)
+        ]
     (if opts.key
       (print (flatten corpus (. corpus opts.key)))
       (print (flatten corpus opts.string)))))

src/story.fnl

@@ -1,8 +1,20 @@
 ;; helper funs
-(local tbl (require :lib.table))
-(local {: filter} (require :src.filter))
-(local split
-  (partial (. (require :lib.string) :split) "[^%.]*"))
+(local tbl {
+  :contains? (fn contains [t x]
+    "does sequence t contain element x?"
+    (accumulate [found false
+                 _ v (ipairs t)
+                 &until found] ; escape early
+      (or found (= x v))))
+  :keys (fn keys [t]
+    "takes a table returns a sequential list of its keys"
+    (local out [])
+    (each [k v (pairs t)] (table.insert out k))
+    out)
+})
+(fn has-key? [t k]
+  (tbl.contains? (tbl.keys t) k))
+
 
 (fn lines [filename callback]
   (case (pcall #(with-open [file (io.open filename)] (each [line (file:lines)] (callback line))))
@@ -10,7 +22,7 @@
 
 (fn _create-corpus [lines data]
   (var current-key nil)
-  (local corpus {})
+  (var corpus {})
   (lines data
     #(let [key (string.match $1 "^::%s+([%a-]+)")
            blank? (or (= nil $1) (= "" $1))
@@ -38,7 +50,7 @@
         seed (math.randomseed random) ;; SIDE EFFECT
         whatever (handle:close)       ;; SIDE EFFECT
         idx (math.random len)
-        keys (accumulate [acc [] k _ (pairs t)] (do (table.insert acc k) acc))
+        keys (accumulate [acc [] k v (pairs t)] (do (table.insert acc k) acc))
         rndkey (. keys idx)
         ]
     (. t rndkey)))
@@ -48,24 +60,18 @@
               "string" origin
               "table"  (one-of origin)
               _ (error "Origin must be a table or a string"))
-        template-pattern "%[[%a-%.]+%]" ; [word]
-        word-pattern "%[([%a-%.]+)%]"   ; word
+        template-pattern "%[[%a-]+%]" ; [word]
+        word-pattern "%[([%a-]+)%]"   ; word
         (i j) (string.find str template-pattern) ; indices
-        raw-word (or (string.match str word-pattern) str)
-        [word & fs] (split raw-word)
-        ]
+        word (string.match str word-pattern)]    ; the actual keyword
     (if (not i)
       str
       (do
-        (assert (tbl.has-key? corpus word)
-          (string.format
-            "Error trying to expand \"%s\". Corpus does not contain a table called \"%s\""
-            str word))
+        (assert (has-key? corpus word)
+          (string.format "Error trying to expand \"%s\". Corpus does not contain a table called \"%s\"" str word))
         (let [next-str (string.format "%s%s%s"
                 (string.sub str 1 (- i 1))
-                (if (length fs)
-                  (filter (.. (one-of (. corpus word)) "." (table.concat fs ".")))
-                  (one-of (. corpus word)))
+                (one-of (. corpus word))
                 (string.sub str (+ j 1)))]
           (flatten corpus next-str j)))))) ;; this is a tail call!
 

test/morpheme-word-epithet.txt

@@ -2,350 +2,349 @@
 
 :: name
 ## Entry point / origin
-[morpheme.c][word] [epithet]
-[prefix] [morpheme.c][word]
-[prefix] [morpheme.c][word.s]
-[prefix] [morpheme.c][word] [epithet]
-[morpheme.c][word]'[morpheme.c]
-[morpheme.c] [morpheme.c][word]
+[morpheme][word] [epithet]
+[prefix] [morpheme][word]
+[prefix] [morpheme][word] [epithet]
+[morpheme][word]'[morpheme]
+[morpheme] [morpheme][word]
 
 :: morpheme
 ## A random sound
-brog
-guyn
-driz
-oy
-poin
-broin
-dray
-hoy
-khu
-elbb
-zee
-teg
-thig
-volor
-moror
-zarn
-zark
-zarzl
-zhong
-zok
-krinc
-prunc
-seld
-serd
-quo
-quog
-wast
-writ
-wub
-eem
-eo
-ev
-wuld
-rond
-trop
-yhoo
-urdd
-ing
-ogg
-phef
-aph
-fro
-drov
-frol
-gis
-hirn
-wilk
-rof
-roch
-thip
-throg
-teng
-tirk
-tenk
-twu
-twal
-yuth
-yirg
-ull
-uk
-iv
-irch
-ok
-ort
-ool
-oon
-oos
-oop
-pur
-purth
-pux
-pix
-ang
-ank
-ack
-arr
-arc
-sor
-shri
-sarc
-sib
-spo
-snil
-dral
-dax
-druz
-droon
-tiong
-snid
-phra
-vang
-gawp
-hool
-grul
-dhoop
-jair
-qim
-quisl
-fiaz
-prax
-aal
-righ
-ugh
-yog
-yig
-yair
-var
-vaq
-skog
-drij
-volg
-dem
-ghil
-uvar
-err
-azil
-obil
-zanzil
-zhat
-blug
-blig
-hroo
-waf
-xar
-grar
-lorp
-vuh
-ee
-ay
-oo
-ux
-ix
-whal
-mun
-ilun
-fargl
-xab
-frang
-bao
-bif
-xif
-zij
-quix
-vonch
-van
-klanc
-lug
-nirm
-zirm
-sil
-wev
-vil
-vran
-quiv
-squan
-squank
-squop
-akun
-apar
-epar
-iq
-exy
-eny
-ery
-uth
-ist
-ost
-hrosh
-imb
-omb
-onk
-arem
-urum
-irim
-irik
-eliv
-wep
-wroov
-droov
-seef
-hiqa
-ayy
-jaal
-khee
-ish
-xiliv
-whij
-koj
-krong
-swue
-aur
-eth
-qeth
-neth
-veth
-yeth
-aer
-aen
-ain
-aun
-uon
-xiv
-ung
-ong
-eng
-ehal
-dhar
-dhom
-hom
-kom
-rom
-qom
-eez
-dhezz
-elpz
-upz
-akz
-auz
-goaz
-goz
-mepz
-tepz
-crunz
-grenz
-purb
-ony
-igy
-eart
-ehng
-leng
-jub
-zhoon
-zhewt
-juju
-lhop
-lhow
-ewl
-ewil
-avul
-ap
-ip
-ep
-eb
-en
-el
-ek
-eh
-ez
-es
-ej
-ol
-om
-ob
-oc
-ot
-oz
-os
-oq
-mork
-morg
-borg
-franken
-pranken
-lankim
-khim
-khem
-vinken
-inken
-swohd
-glup
-blubil
-bulbil
-ziz
-miz
-lilip
-soong
-yolp
-grang
-grunc
-gharn
-bral
-criv
-durn
-flom
-griv
-harn
-jurn
-klom
-larn
-mird
-norl
-plen
-qarn
-rilk
-skiv
-tarm
-ulm
-vorn
-wim
-yorn
-blen
-cril
-dorn
-frel
-glim
-jiln
-kren
-lom
-morn
-nix
-polm
-quen
-ralk
-shil
-trok
-ulk
-vlim
-yiln
-brim
-crev
-dril
-flon
-gril
-jorn
-kliv
-lorn
-mirk
-norn
-plim
-qril
-rik
-skon
-trel
-ulv
-vril
+Brog
+Guyn
+Driz
+Oy
+Poin
+Broin
+Dray
+Hoy
+Khu
+Elbb
+Zee
+Teg
+Thig
+Volor
+Moror
+Zarn
+Zark
+Zarzl
+Zhong
+Zok
+Krinc
+Prunc
+Seld
+Serd
+Quo
+Quog
+Wast
+Writ
+Wub
+Eem
+Eo
+Ev
+Wuld
+Rond
+Trop
+Yhoo
+Urdd
+Ing
+Ogg
+Phef
+Aph
+Fro
+Drov
+Frol
+Gis
+Hirn
+Wilk
+Rof
+Roch
+Thip
+Throg
+Teng
+Tirk
+Tenk
+Twu
+Twal
+Yuth
+Yirg
+Ull
+Uk
+Iv
+Irch
+Ok
+Ort
+Ool
+Oon
+Oos
+Oop
+Pur
+Purth
+Pux
+Pix
+Ang
+Ank
+Ack
+Arr
+Arc
+Sor
+Shri
+Sarc
+Sib
+Spo
+Snil
+Dral
+Dax
+Druz
+Droon
+Tiong
+Snid
+Phra
+Vang
+Gawp
+Hool
+Grul
+Dhoop
+Jair
+Qim
+Quisl
+Fiaz
+Prax
+Aal
+Righ
+Ugh
+Yog
+Yig
+Yair
+Var
+Vaq
+Skog
+Drij
+Volg
+Dem
+Ghil
+Uvar
+Err
+Azil
+Obil
+Zanzil
+Zhat
+Blug
+Blig
+Hroo
+Waf
+Xar
+Grar
+Lorp
+Vuh
+Ee
+Ay
+Oo
+Ux
+Ix
+Whal
+Mun
+Ilun
+Fargl
+Xab
+Frang
+Bao
+Bif
+Xif
+Zij
+Quix
+Vonch
+Van
+Klanc
+Lug
+Nirm
+Zirm
+Sil
+Wev
+Vil
+Vran
+Quiv
+Squan
+Squank
+Squop
+Akun
+Apar
+Epar
+Iq
+Exy
+Eny
+Ery
+Uth
+Ist
+Ost
+Hrosh
+Imb
+Omb
+Onk
+Arem
+Urum
+Irim
+Irik
+Eliv
+Wep
+Wroov
+Droov
+Seef
+Hiqa
+Ayy
+Jaal
+Khee
+Ish
+Xiliv
+Whij
+Koj
+Krong
+Swue
+Aur
+Eth
+Qeth
+Neth
+Veth
+Yeth
+Aer
+Aen
+Ain
+Aun
+Uon
+Xiv
+Ung
+Ong
+Eng
+Ehal
+Dhar
+Dhom
+Hom
+Kom
+Rom
+Qom
+Eez
+Dhezz
+Elpz
+Upz
+Akz
+Auz
+Goaz
+Goz
+Mepz
+Tepz
+Crunz
+Grenz
+Purb
+Ony
+Igy
+Eart
+Ehng
+Leng
+Jub
+Zhoon
+Zhewt
+Juju
+Lhop
+Lhow
+Ewl
+Ewil
+Avul
+Ap
+Ip
+Ep
+Eb
+En
+El
+Ek
+Eh
+Ez
+Es
+Ej
+Ol
+Om
+Ob
+Oc
+Ot
+Oz
+Os
+Oq
+Mork
+Morg
+Borg
+Franken
+Pranken
+Lankim
+Khim
+Khem
+Vinken
+Inken
+Swohd
+Glup
+Blubil
+Bulbil
+Ziz
+Miz
+Lilip
+Soong
+Yolp
+Grang
+Grunc
+Gharn
+Bral
+Criv
+Durn
+Flom
+Griv
+Harn
+Jurn
+Klom
+Larn
+Mird
+Norl
+Plen
+Qarn
+Rilk
+Skiv
+Tarm
+Ulm
+Vorn
+Wim
+Yorn
+Blen
+Cril
+Dorn
+Frel
+Glim
+Jiln
+Kren
+Lom
+Morn
+Nix
+Polm
+Quen
+Ralk
+Shil
+Trok
+Ulk
+Vlim
+Yiln
+Brim
+Crev
+Dril
+Flon
+Gril
+Jorn
+Kliv
+Lorn
+Mirk
+Norn
+Plim
+Qril
+Rik
+Skon
+Trel
+Ulv
+Vril
 
 :: word
 ## A regular old word
@@ -1012,4 +1011,3 @@ Sister
 Sour
 Pickled
 The Machine known as
-# vim:set filetype=tbls:

test/story.test.fnl

@@ -5,11 +5,11 @@
 
   (let [corpus (create-corpus "test/morpheme-word-epithet.txt")
         origin-key :name
-        origin-table ["[morpheme.c][word] [epithet]"
-                      "[prefix] [morpheme.c][word] [epithet]"
-                      "[prefix] [morpheme.c][word]"
+        origin-table ["[morpheme][word] [epithet]"
+                      "[prefix] [morpheme][word] [epithet]"
+                      "[prefix] [morpheme][word]"
                       ]
-        origin-string "[morpheme.c][word] [epithet]"
+        origin-string "[morpheme][word] [epithet]"
         get-story-with-key
           (partial flatten corpus (. corpus origin-key))
         get-story-with-table

vim-tbls/README.md

@@ -1,25 +0,0 @@
-# vim-tbls
-
-syntax, filtetype detection, folding, and navigation for tbls files
-
-## installing
-
-1. find out where your `syntax` and `ftdetect` files are. e.g. `$HOME/.config/nvim/` or `$HOME/.vim/`.
-
-2. copy `syntax/tbls.vim` and `ftdetect/tbls.vim` to the appropriate folders
-
-after installing, any `.tbl` file should be detected.
-
-to use syntax for, e.g. a `.txt` file, in vim do `:set filetype=tbls`
-
-## using
-
-the syntax defines a foldable table block as the region between a `:: header` and a blank line.
-all folding commands should work.
-(e.g. `zj` and `zk` to jump to next fold. see `:help fold`.)
-the plugin file sets the foldmethod to syntax,
-so your tables should start out folded if folding in enabled.
-
-the plugin file also maps `]]` and `[[`
-(next section and previous section, respectively)
-to jump between table headers.

vim-tbls/ftdetect/tbls.vim

@@ -1 +0,0 @@
-au BufRead,BufNewFile *.tbl set filetype=tbls

vim-tbls/ftplugin/tbls.vim

@@ -1,3 +0,0 @@
-setlocal foldmethod=syntax
-nnoremap <silent><buffer> ]] m':call search('^::', "W")<CR>
-nnoremap <silent><buffer> [[ m':call search('^::', "bW")<CR>

vim-tbls/syntax/tbls.vim

@@ -1,15 +0,0 @@
-if exists("b:current_syntax")
-  finish
-endif
-
-syntax match tblsComment "^#.*$"
-syntax match tblsTitle "^:\+ .*$"
-syntax match tblsRef "\[[^\]]*\]"
-
-syntax region tblsTable start=":: .*" end="^$" fold transparent
-
-highlight default link tblsComment Comment
-highlight default link tblsTitle Statement
-highlight default link tblsRef Type
-
-let b:current_syntax = "tbls"