(in-package :itsdb)

(setf *www-title* :hag)

(setf *www-logon-css* "logon")
  
(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)
   ("Word" lkb::lex-root "$lex-root" nil)
   ))

(setf *www-generics* nil)


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