Last active
October 6, 2023 09:02
-
-
Save drkameleon/b5345b393537271573a307fa49127c51 to your computer and use it in GitHub Desktop.
Dictionary-ish example in Grafito
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/env arturo | |
| do {grafito.art} | |
| do [ | |
| lemma: function [wrd, lng, ps][ | |
| f: form.new.unique [name: wrd] | |
| res: word #[ | |
| lang: to :string lng, | |
| pos: to :string ps, | |
| of: form #[name: wrd] | |
| ] | |
| if not? empty? res -> return first res | |
| res: word.new #[ | |
| lang: to :string lng, | |
| pos: to :string ps | |
| ] | |
| res ~> 'of f | |
| unstack.discard 1 | |
| return res | |
| ] | |
| meaning: function [mn, lemmas][ | |
| lemmas ~> 'has sense.new.unique #[name: mn] | |
| unstack.discard 1 | |
| ] | |
| lookup: function [wd, lng][ | |
| senses: sense [] | |
| www: new [] | |
| loop senses 's [ | |
| words: word [of: form wd, lang: lng, has: s] | |
| if not? empty? words [ | |
| inspect words | |
| 'www ++ words | |
| ] | |
| ] | |
| unique 'www | |
| return www | |
| ] | |
| graph .helpers: [form, word, sense] | |
| .create | |
| .verbose | |
| .palette: 'default | |
| "dictio" [ | |
| meaning "To exist." @[ | |
| lemma {be} {en} {verb} | |
| lemma {jam} {sq} {verb} | |
| lemma {var} {az} {verb} | |
| lemma {izan} {eu} {verb} | |
| lemma {ser} {ca} {verb} | |
| lemma {zijn} {nl} {verb} | |
| lemma {bestaan} {nl} {verb} | |
| lemma {ekzisti} {eo} {verb} | |
| lemma {esti} {eo} {verb} | |
| lemma {olema} {et} {verb} | |
| lemma {olla} {fi} {verb} | |
| lemma {olla olemassa} {fi} {verb} | |
| lemma {ser} {gl} {verb} | |
| lemma {sein} {de} {verb} | |
| lemma {existieren} {de} {verb} | |
| lemma {vera} {is} {verb} | |
| lemma {ada} {ind} {verb} | |
| lemma {essere} {it} {verb} | |
| lemma {esserci} {it} {verb} | |
| lemma {ada} {ms} {verb} | |
| lemma {ser} {pt} {verb} | |
| lemma {haver} {pt} {verb} | |
| lemma {existir} {pt} {verb} | |
| lemma {fi} {ro} {verb} | |
| lemma {exista} {ro} {verb} | |
| lemma {biti} {sl} {verb} | |
| lemma {ser} {es} {verb} | |
| lemma {existir} {es} {verb} | |
| lemma {haber} {es} {verb} | |
| lemma {vara} {sv} {verb} | |
| lemma {existera} {sv} {verb} | |
| lemma {finnas} {sv} {verb} | |
| lemma {finnas till} {sv} {verb} | |
| lemma {vara till} {sv} {verb} | |
| lemma {var} {tr} {verb} | |
| lemma {bod} {cy} {verb} | |
| ] | |
| meaning "To occupy a place." @[ | |
| lemma {be} {en} {verb} | |
| lemma {jam} {sq} {verb} | |
| lemma {egon} {eu} {verb} | |
| lemma {ser} {ca} {verb} | |
| lemma {estar} {ca} {verb} | |
| lemma {zijn} {nl} {verb} | |
| lemma {staan} {nl} {verb} | |
| lemma {zitten} {nl} {verb} | |
| lemma {liggen} {nl} {verb} | |
| lemma {wezen} {nl} {verb} | |
| lemma {zich bevinden} {nl} {verb} | |
| lemma {esti} {eo} {verb} | |
| lemma {olema} {et} {verb} | |
| lemma {olla} {fi} {verb} | |
| lemma {estar} {gl} {verb} | |
| lemma {sein} {de} {verb} | |
| lemma {sich befinden} {de} {verb} | |
| lemma {van} {hu} {verb} | |
| lemma {vera} {is} {verb} | |
| lemma {berada} {ind} {verb} | |
| lemma {essere} {it} {verb} | |
| lemma {berada} {ms} {verb} | |
| lemma {estar} {pt} {verb} | |
| lemma {fi} {ro} {verb} | |
| lemma {biti} {sl} {verb} | |
| lemma {estar} {es} {verb} | |
| lemma {kuwa} {sw} {verb} | |
| lemma {vara} {sv} {verb} | |
| lemma {ligga} {sv} {verb} | |
| lemma {sitta} {sv} {verb} | |
| lemma {finnas} {sv} {verb} | |
| lemma {bulunmak} {tr} {verb} | |
| lemma {olmak} {tr} {verb} | |
| lemma {bod} {cy} {verb} | |
| ] | |
| meaning "To occur, to take place." @[ | |
| lemma {be} {en} {verb} | |
| lemma {izan} {eu} {verb} | |
| lemma {ser} {ca} {verb} | |
| lemma {finde sted} {da} {verb} | |
| lemma {ske} {da} {verb} | |
| lemma {zijn} {nl} {verb} | |
| lemma {plaatsvinden} {nl} {verb} | |
| lemma {okazi} {eo} {verb} | |
| lemma {olema} {et} {verb} | |
| lemma {olla} {fi} {verb} | |
| lemma {ser} {gl} {verb} | |
| lemma {sein} {de} {verb} | |
| lemma {stattfinden} {de} {verb} | |
| lemma {lenni} {hu} {verb} | |
| lemma {vera} {is} {verb} | |
| lemma {essere} {it} {verb} | |
| lemma {ser} {pt} {verb} | |
| lemma {fi} {ro} {verb} | |
| lemma {biti} {sl} {verb} | |
| lemma {ser} {es} {verb} | |
| lemma {vara} {sv} {verb} | |
| lemma {ske} {sv} {verb} | |
| lemma {olmak} {tr} {verb} | |
| lemma {var olmak} {tr} {verb} | |
| lemma {bod} {cy} {verb} | |
| ] | |
| meaning "Used to indicate that the subject and object are the same." @[ | |
| lemma {be} {en} {verb} | |
| lemma {wees} {af} {verb} | |
| lemma {jam} {sq} {verb} | |
| lemma {izan} {eu} {verb} | |
| lemma {ser} {ca} {verb} | |
| lemma {zijn} {nl} {verb} | |
| lemma {esti} {eo} {verb} | |
| lemma {olema} {et} {verb} | |
| lemma {olla} {fi} {verb} | |
| lemma {ser} {gl} {verb} | |
| lemma {sein} {de} {verb} | |
| lemma {vera} {is} {verb} | |
| lemma {is} {ga} {verb} | |
| lemma {essere} {it} {verb} | |
| lemma {ialah} {ms} {verb} | |
| lemma {to} {pl} {verb} | |
| lemma {ser} {pt} {verb} | |
| lemma {fi} {ro} {verb} | |
| lemma {biti} {sl} {verb} | |
| lemma {ser} {es} {verb} | |
| lemma {vara} {sv} {verb} | |
| lemma {imek} {tr} {verb} | |
| lemma {bod} {cy} {verb} | |
| ] | |
| meaning "To consume (a liquid) through the mouth." @[ | |
| lemma {drink} {en} {verb} | |
| lemma {drink} {af} {verb} | |
| lemma {pi} {sq} {verb} | |
| lemma {edan} {eu} {verb} | |
| lemma {beure} {ca} {verb} | |
| lemma {drikke} {da} {verb} | |
| lemma {drinken} {nl} {verb} | |
| lemma {trinki} {eo} {verb} | |
| lemma {jooma} {et} {verb} | |
| lemma {juoda} {fi} {verb} | |
| lemma {boire} {fr} {verb} | |
| lemma {beber} {gl} {verb} | |
| lemma {trinken} {de} {verb} | |
| lemma {saufen} {de} {verb} | |
| lemma {trinke} {de} {verb} | |
| lemma {iszik} {hu} {verb} | |
| lemma {drekka} {is} {verb} | |
| lemma {minum} {ind} {verb} | |
| lemma {ibh} {ga} {verb} | |
| lemma {bere} {it} {verb} | |
| lemma {dzert} {lv} {verb} | |
| lemma {gerti} {lt} {verb} | |
| lemma {minum} {ms} {verb} | |
| lemma {xorob} {mt} {verb} | |
| lemma {beber} {pt} {verb} | |
| lemma {tomar} {pt} {verb} | |
| lemma {bea} {ro} {verb} | |
| lemma {piti} {sl} {verb} | |
| lemma {beber} {es} {verb} | |
| lemma {tomar} {es} {verb} | |
| lemma {-nywa} {sw} {verb} | |
| lemma {dricka} {sv} {verb} | |
| lemma {yfed} {cy} {verb} | |
| lemma {-phuza} {zu} {verb} | |
| ] | |
| meaning "To consume alcoholic beverages." @[ | |
| lemma {drink} {en} {verb} | |
| lemma {drink} {af} {verb} | |
| lemma {suip} {af} {verb} | |
| lemma {edan} {eu} {verb} | |
| lemma {zurrut egin} {eu} {verb} | |
| lemma {txurrut egin} {eu} {verb} | |
| lemma {beure} {ca} {verb} | |
| lemma {drikke} {da} {verb} | |
| lemma {drinken} {nl} {verb} | |
| lemma {drinki} {eo} {verb} | |
| lemma {jooma} {et} {verb} | |
| lemma {juoda} {fi} {verb} | |
| lemma {boire} {fr} {verb} | |
| lemma {beber} {gl} {verb} | |
| lemma {trincar} {gl} {verb} | |
| lemma {saufen} {de} {verb} | |
| lemma {iszik} {hu} {verb} | |
| lemma {drekka} {is} {verb} | |
| lemma {bere} {it} {verb} | |
| lemma {bere alcolici} {it} {verb} | |
| lemma {dzert} {lv} {verb} | |
| lemma {gerti} {lt} {verb} | |
| lemma {beber} {pt} {verb} | |
| lemma {tomar} {pt} {verb} | |
| lemma {bea} {ro} {verb} | |
| lemma {piti} {sl} {verb} | |
| lemma {beber} {es} {verb} | |
| lemma {tomar} {es} {verb} | |
| lemma {-piga maji} {sw} {verb} | |
| lemma {dricka} {sv} {verb} | |
| lemma {supa} {sv} {verb} | |
| lemma {llymeitian} {cy} {verb} | |
| lemma {-qhafa} {zu} {verb} | |
| ] | |
| meaning "Alcoholic beverages in general." @[ | |
| lemma {drink} {en} {noun} | |
| lemma {drank} {af} {noun} | |
| lemma {dop} {af} {noun} | |
| lemma {alkohol} {eu} {noun} | |
| lemma {alkohol} {da} {noun} | |
| lemma {spiritus} {da} {noun} | |
| lemma {alkoholijuoma} {fi} {noun} | |
| lemma {Drink} {de} {noun} | |
| lemma {szeszes ital} {hu} {noun} | |
| lemma {trunki} {pl} {noun} | |
| lemma {bebida} {pt} {noun} | |
| lemma {dricka} {sv} {noun} | |
| lemma {sprit} {sv} {noun} | |
| lemma {alkohol} {sv} {noun} | |
| lemma {dricka} {sv} {noun} | |
| lemma {spad} {sv} {noun} | |
| ] | |
| meaning "To ingest; to be ingested." @[ | |
| lemma {eat} {en} {verb} | |
| lemma {menjar} {ca} {verb} | |
| lemma {spise} {da} {verb} | |
| lemma {eten} {nl} {verb} | |
| lemma {ruokailla} {fi} {verb} | |
| lemma {manger} {fr} {verb} | |
| lemma {comer} {gl} {verb} | |
| lemma {gandir} {gl} {verb} | |
| lemma {essen} {de} {verb} | |
| lemma {santap} {ind} {verb} | |
| lemma {ith} {ga} {verb} | |
| lemma {mangiare} {it} {verb} | |
| lemma {comer} {pt} {verb} | |
| lemma {a lua masa} {ro} {verb} | |
| lemma {jesti} {sl} {verb} | |
| lemma {comer} {es} {verb} | |
| lemma {-dla} {zu} {verb} | |
| ] | |
| meaning "To cause (someone) to worry." @[ | |
| lemma {eat} {en} {verb} | |
| lemma {plage} {da} {verb} | |
| lemma {vreten} {nl} {verb} | |
| lemma {opvreten} {nl} {verb} | |
| lemma {kalvaa} {fi} {verb} | |
| lemma {ronger} {fr} {verb} | |
| lemma {bouffer} {fr} {verb} | |
| lemma {roade} {ro} {verb} | |
| lemma {reconcomer} {es} {verb} | |
| lemma {gnaga} {sv} {verb} | |
| ] | |
| meaning "To transfer goods or provide services in exchange for money." @[ | |
| lemma {sell} {en} {verb} | |
| lemma {verkoop} {af} {verb} | |
| lemma {shes} {sq} {verb} | |
| lemma {satmaq} {az} {verb} | |
| lemma {saldu} {eu} {verb} | |
| lemma {vendre} {ca} {verb} | |
| lemma {prodat} {cs} {verb} | |
| lemma {verkopen} {nl} {verb} | |
| lemma {vendi} {eo} {verb} | |
| lemma {vendre} {fr} {verb} | |
| lemma {vender} {gl} {verb} | |
| lemma {verkaufen} {de} {verb} | |
| lemma {vertreiben} {de} {verb} | |
| lemma {ad} {hu} {verb} | |
| lemma {elad} {hu} {verb} | |
| lemma {kereskedik} {hu} {verb} | |
| lemma {selja} {is} {verb} | |
| lemma {jual} {ind} {verb} | |
| lemma {menjual} {ind} {verb} | |
| lemma {vendere} {it} {verb} | |
| lemma {parduoti} {lt} {verb} | |
| lemma {menjual} {ms} {verb} | |
| lemma {vender} {pt} {verb} | |
| lemma {vinde} {ro} {verb} | |
| lemma {prodajati} {sl} {verb} | |
| lemma {prodati} {sl} {verb} | |
| lemma {vender} {es} {verb} | |
| lemma {kuuza} {sw} {verb} | |
| lemma {satmak} {tr} {verb} | |
| lemma {gwerthu} {cy} {verb} | |
| ] | |
| meaning "To be sold." @[ | |
| lemma {sell} {en} {verb} | |
| lemma {prodat se} {cs} {verb} | |
| lemma {se vendre} {fr} {verb} | |
| lemma {elkel} {hu} {verb} | |
| lemma {venderse} {es} {verb} | |
| lemma {salir} {es} {verb} | |
| ] | |
| meaning "To promote a product or service." @[ | |
| lemma {sell} {en} {verb} | |
| ] | |
| meaning "To promote a particular viewpoint." @[ | |
| lemma {sell} {en} {verb} | |
| lemma {intentar} {es} {verb} | |
| lemma {buscar} {es} {verb} | |
| ] | |
| meaning "To betray for money or other things." @[ | |
| lemma {sell} {en} {verb} | |
| ] | |
| meaning "To trick, cheat, or manipulate someone." @[ | |
| lemma {sell} {en} {verb} | |
| lemma {harhauttaa} {fi} {verb} | |
| lemma {huiputtaa} {fi} {verb} | |
| lemma {circuire} {it} {verb} | |
| ] | |
| meaning "To speak aloud words or other information that is written. (often construed with a to phrase or an indirect object)" @[ | |
| lemma {read} {en} {verb} | |
| lemma {lees} {af} {verb} | |
| lemma {lexon} {sq} {verb} | |
| lemma {irakurri} {eu} {verb} | |
| lemma {llegir} {ca} {verb} | |
| lemma {voorlezen} {nl} {verb} | |
| lemma {legi} {eo} {verb} | |
| lemma {lugema} {et} {verb} | |
| lemma {lukea} {fi} {verb} | |
| lemma {lire} {fr} {verb} | |
| lemma {ler} {gl} {verb} | |
| lemma {vorlesen} {de} {verb} | |
| lemma {felolvas} {hu} {verb} | |
| lemma {lesa} {is} {verb} | |
| lemma {leggere} {it} {verb} | |
| lemma {leggere ad alta voce} {it} {verb} | |
| lemma {skaityti} {lt} {verb} | |
| lemma {baca} {ms} {verb} | |
| lemma {qara} {mt} {verb} | |
| lemma {lese} {nb} {verb} | |
| lemma {ler} {pt} {verb} | |
| lemma {citi} {ro} {verb} | |
| lemma {brati} {sl} {verb} | |
| lemma {leer} {es} {verb} | |
| lemma {soma} {sw} {verb} | |
| lemma {kusomea} {sw} {verb} | |
| lemma {okumak} {tr} {verb} | |
| lemma {darllen} {cy} {verb} | |
| ] | |
| meaning "To interpret, or infer a meaning, significance, thought, intention, etc., from." @[ | |
| lemma {read} {en} {verb} | |
| lemma {llegir} {ca} {verb} | |
| lemma {lezen} {nl} {verb} | |
| lemma {legi} {eo} {verb} | |
| lemma {lugema} {et} {verb} | |
| lemma {lukea} {fi} {verb} | |
| lemma {lire} {fr} {verb} | |
| lemma {olvas} {hu} {verb} | |
| lemma {kiigazodik} {hu} {verb} | |
| lemma {megfejt} {hu} {verb} | |
| lemma {leggere} {it} {verb} | |
| lemma {lese} {nb} {verb} | |
| lemma {ler} {pt} {verb} | |
| lemma {putea citi} {ro} {verb} | |
| lemma {citi} {ro} {verb} | |
| lemma {lectura} {ro} {verb} | |
| ] | |
| meaning "To consist of certain text." @[ | |
| lemma {read} {en} {verb} | |
| lemma {lukea} {fi} {verb} | |
| lemma {hangzik} {hu} {verb} | |
| lemma {berbunyi} {ind} {verb} | |
| lemma {dizer} {pt} {verb} | |
| lemma {decir} {es} {verb} | |
| lemma {poner} {es} {verb} | |
| ] | |
| meaning "Of text, etc., to be interpreted or read in a particular way." @[ | |
| lemma {read} {en} {verb} | |
| lemma {atzeman} {eu} {verb} | |
| lemma {llegir-se} {ca} {verb} | |
| lemma {gelezen worden} {nl} {verb} | |
| lemma {lukea} {fi} {verb} | |
| lemma {se lire} {fr} {verb} | |
| lemma {gelesen werden} {de} {verb} | |
| lemma {dibaca} {ind} {verb} | |
| lemma {leggersi} {it} {verb} | |
| lemma {ler-se} {pt} {verb} | |
| lemma {a fi citit} {ro} {verb} | |
| lemma {a fi lecturat} {ro} {verb} | |
| lemma {leerse} {es} {verb} | |
| lemma {interpertase} {es} {verb} | |
| lemma {entenderse} {es} {verb} | |
| lemma {ghi} {vi} {verb} | |
| ] | |
| preview [] | |
| ] | |
| ] |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment