Yuta Yamada
null+****@clear*****
Thu Sep 27 20:12:53 JST 2012
Yuta Yamada 2012-09-27 20:12:53 +0900 (Thu, 27 Sep 2012) New Revision: 062d0885b506c8ecd9b1dc36be19530cb7eec286 https://github.com/logaling/logalimacs/commit/062d0885b506c8ecd9b1dc36be19530cb7eec286 Log: Insert regexp of "^" and "$" to loga-irregular-nouns Modified files: logalimacs.el Modified: logalimacs.el (+16 -9) =================================================================== --- logalimacs.el 2012-09-20 16:07:41 +0900 (1ad4fc7) +++ logalimacs.el 2012-09-27 20:12:53 +0900 (d21095c) @@ -192,6 +192,11 @@ Example: (defconst logalimacs-buffer "*logalimacs*" "buffer name for logalimacs") +(defun loga-pave-regexp (list) + (loop for (plural single) in list + collect `(,(format "^%s$" plural) + ,single))) + (defvar loga-ignoring-regexp-words '("^alps$" "^basis$" "^crisis$" "^foes$" "ious$" "^news$" "shoes" "ss$" "^stimulus$" @@ -200,15 +205,17 @@ Example: "knives" "lives" "leaves" "halves" "wives" "thieves")) (defvar loga-irregular-nouns - '(("stimuli" "stimulus") - ("foes" "foe") - ;; former English (~fe or ~f -> ~ves) - ("knives" "knife") - ("lives" "life") - ("leaves" "leaf") - ("halves" "half") - ("wives" "wife") - ("thieves" "thief"))) + (loga-pave-regexp + '(("stimuli" "stimulus") + ("ties" "tie") + ("foes" "foe") + ;; former English (~fe or ~f -> ~ves) + ("knives" "knife") + ("lives" "life") + ("leaves" "leaf") + ("halves" "half") + ("wives" "wife") + ("thieves" "thief")))) (defvar loga-command-alist nil) -------------- next part -------------- An HTML attachment was scrubbed...下載
