Mercurial Mercurial > gadict / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
contrib/gadict.el
changeset 726 d41eddc3561f
parent 719 ebc16c3a9129
child 730 0ea3bcaae957
equal deleted inserted replaced
725:37d3a6824ee9 726:d41eddc3561f 
    36 
    36 
    37 (defun gadict--trim (s)
 
    37 (defun gadict--trim (s)
 
    38   "Remove whitespace at the beginning and end of S."
 
    38   "Remove whitespace at the beginning and end of S."
 
    39   (gadict--trim-left (gadict--trim-right s)))
 
    39   (gadict--trim-left (gadict--trim-right s)))
 
    40 
    40 
    41 (defconst gadict--pos '("n" "v" "adj" "adv" "pron" "prep" "num" "conj" "int" "phr" "phr.v" "contr" "abbr" "prefix")
 
    41 (defconst gadict--pos '("n" "v" "adj" "adv" "pron" "det" "prep" "num" "conj" "int" "phr" "phr.v" "contr" "abbr" "prefix")
 
    42   "Defined parts of speech.")
 
    42   "Defined parts of speech.")
 
    43 
    43 
    44 (defconst gadict--art-lang-regex (regexp-opt '("en" "ru" "uk" "la")))
 
    44 (defconst gadict--art-lang-regex (regexp-opt '("en" "ru" "uk" "la")))
 
    45 (defconst gadict--art-rel-regex (regexp-opt '("ant" "syn" "rel" "topic" "hyper" "hypo")))
 
    45 (defconst gadict--art-rel-regex (regexp-opt '("ant" "syn" "rel" "topic" "hyper" "hypo")))
 
    46 (defconst gadict--art-var-regex (regexp-opt '("rare" "v1" "v2" "v3" "s" "pl" "male" "female" "abbr" "comp" "super" "Am" "Br" "Au")))
 
    46 (defconst gadict--art-var-regex (regexp-opt '("rare" "v1" "v2" "v3" "s" "pl" "male" "female" "abbr" "comp" "super" "Am" "Br" "Au")))
gadict