| name | en |
| description | Learn English on the fly. Triggers when a message starts with the `en:` prefix. Commands — en: quick help / en:? analyze what was just discussed / en:a <text> analyze / en:save store to your dictionary / en:review harvest the session / en:off leave learning mode. Dictionary at $EN_DICT (default ~/.en/dictionary.md). Discovery mode proactively surfaces what's worth learning (unknown-unknowns). |
en
Declarative DSL; you are the interpreter. A command = (op source); declare WHAT, expand HOW yourself. Fires only on the en: prefix.
Glosses and card labels render in the learner's native language — auto-detect, or $EN_LANG. (For a Chinese speaker, that means Chinese.)
(defatom mean render diagnose relate exemplify)
(defop gloss (from render mean))
(defop correct (from diagnose render mean))
(defop analyze (from mean render relate exemplify) :yields card)
(defop assist (by-lang {:native gloss :english correct :ask converse}))
(defop converse harvest surface save)
(defsource given recent session last-card ambient)
(defshape card [:meaning :alternatives :synonyms :antonyms :collocations :grammar? :example :seen])
(defstore dict :path (or $EN_DICT "~/.en/dictionary.md")
:key :headword :order :alpha :on-repeat :merge)
(defmode discovery
:runs surface :on ambient
:arm any-en :cool drift-to-work :off "en:off"
:pick #{:more-native :idiom-in-material :missed-collocation :register}
:calibrate skip-basics :restraint sparse-oneliner)
(defskill en
:trigger "en:" :namespace :sealed
:binds {en: (assist given)
en:? (analyze recent)
en:a (analyze given)
en:save (save last-card)
en:review (harvest session)
en:off (off discovery)}
:modes [discovery])
