;; -*- lisp -*-
;; apply rules left-to-right or right-to-left?
;;                              run 0   run 1    run 2   run 3   run 4
(define-sort-rule-orientations (forward backward forward forward forward))
;; if everything is right, run 4 is never used.

(define-rule-set "resolve-special"
  :rules (("@" "" :string)
          ))

;; define order of sorting runs
(use-rule-set :run 0
	      :rule-set ("alphabetize" "ignore-the-rest"))
(use-rule-set :run 1
	      :rule-set ("resolve-diacritics" "ignore-the-rest"))
(use-rule-set :run 2
	      :rule-set ("resolve-case" "ignore-the-rest"))
(use-rule-set :run 3
	      :rule-set ("position1" "position2" "resolve-special"))

;; rules 3 above uses regular expressions for the "position" parameter
;; to get the old behaviour back (using only string rules) use this:
;;	      :rule-set ("resolve-special" "resolve-letters"))

;; define other stuff
(define-crossref-class "xorty" :unverified)

(markup-keyword :close "~n")

(markup-letter-group :open-head "" :close-head "~n")