[logaling-commit] logaling/logalimacs [master] Renew special words for single or plural

Back to archive index

Yuta Yamada null+****@clear*****
Mon Dec 24 20:05:33 JST 2012


Yuta Yamada	2012-12-24 20:05:33 +0900 (Mon, 24 Dec 2012)

  New Revision: c468c00888a3b89dbbce062661bf16097fde4a4c
  https://github.com/logaling/logalimacs/commit/c468c00888a3b89dbbce062661bf16097fde4a4c

  Log:
    Renew special words for single or plural
    
    Merry Christmas.

  Modified files:
    logalimacs.el

  Modified: logalimacs.el (+26 -12)
===================================================================
--- logalimacs.el    2012-09-28 15:43:23 +0900 (43d538f)
+++ logalimacs.el    2012-12-24 20:05:33 +0900 (8a8593c)
@@ -198,22 +198,36 @@ Example:
                   ,single)))
 
 (defvar loga-ignoring-regexp-words
-  '("^alps$" "^apparatus$" "^as$" "^basis$" "^census$" "^crisis$" "^ethics$"
-    "[enmiu]ous$" "^news$" "^pathos$" "^perhaps$" "^surplus$" "shoes" "ss$"
-    "^stimulus$" "^thesis$" "^this$"))
+  '("^alps$" "^aegis$" "^apparatus$" "^as$" "^census$"
+    "^Christmas$"
+    "^ethics$" "^news$" "^overseas$" "^pathos$"
+    "^perhaps$" "^radius$" "^shoes$" "^stimulus$"
+    "^this$" "^thus$" "^Xmas$"
+    ;; word for suffix is "ous"
+    "[ceghijklmnortuv]ous$"
+    ;; periplus surplus plus etc..
+    "plus$"
+    ;; basis crisis emphasis necrosis thesis hypothesis etc..
+    "sis$"
+    ;; amass bless press etc..
+    "ss$"))
 
 (defvar loga-irregular-nouns
   (loga-pave-regexp
-   '(("stimuli" "stimulus")
-     ("ties"    "tie")
-     ("foes"    "foe")
+   '(("expenses"  "expense")
+     ("dies"      "die")
+     ("headaches" "headache")
+     ("stimuli"   "stimulus")
+     ("ties"      "tie")
+     ("foes"      "foe")
+     ("lies"      "lie")
      ;; former English (~fe or ~f -> ~ves)
-     ("knives"  "knife")
-     ("lives"   "life")
-     ("leaves"  "leaf")
-     ("halves"  "half")
-     ("wives"   "wife")
-     ("thieves" "thief"))))
+     ("knives"    "knife")
+     ("lives"     "life")
+     ("leaves"    "leaf")
+     ("halves"    "half")
+     ("wives"     "wife")
+     ("thieves"   "thief"))))
 
 (defvar loga-command-alist nil)
 
-------------- next part --------------
An HTML attachment was scrubbed...
Download 



More information about the logaling-commit mailing list
Back to archive index