(in-package :tsdb)

(setf *www-title* :hag)

(setf *www-custom-js* (merge-pathnames "hag.js" *load-truename*))

(setf *www-introduction* (merge-pathnames "hag.html" *load-truename*))

(setf *www-comparisons* nil)

(setf *www-sample* "Allàh yà gaafàrtà maalàm!")

(setf *www-roots*
  '(("Consistent tone/length marking" lkb::root "$root" t)
    ("Robust ɓ, ɗ, ƙ" lkb::root_spelling_robust "$root_spelling_robust" nil)
    ("Partial tone/length marking" lkb::root_supra_robust "$root_supra_robust" nil)
    ("Partial tone/length marking + robust ɓ ɗ ƙ" lkb::root_spelling_supra_robust "$root_spelling_supra_robust" nil)
    ))


(setf *www-urls*
  '((:parse "http://www.delph-in.net/hag")
    (:generate "http://www.delph-in.net/hag")))