en

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])