make 鬱ぐ not clash with 鬱

dict-errata.lisp

@@ -832,6 +832,8 @@
   (set-common 'kana-text 2841254 "からって" :null)
   (set-common 'kana-text 2028950 "とは" :null)
 
+  ;; (delete-sense-prop 2036080 "misc" "uk") ;; 鬱
+  (add-sense-prop 2510160 0 "misc" "obsc") ;; 鬱ぐ
 
   (add-sense-prop 1468900 0 "pos" "ctr")
   (add-sense-prop 1469050 0 "pos" "ctr")

dict.lisp

@@ -837,7 +837,7 @@
     (when long-p
       (setf score (max len score)))
     (when kanji-p
-      (setf score (max 5 score))
+      (setf score (max (if is-arch 3 5) score))
       (when (and long-p (or (> n-kanji 1) (> len 4)))
         (incf score 2)))
     (when ctr-mode

tests.lisp

@@ -464,6 +464,7 @@
   (assert-segment "ことしは新成人１４人のうち８人が避難先などから村の村民会館に集まりました"
                   "ことし" "は" "新成人" "１４人" "の" "うち" "８人" "が" "避難" "先" "など" "から"
                   "村" "の" "村民" "会館" "に" "集まりました")
+  (assert-segment "鬱が悪化する" "鬱" "が" "悪化する")
   )
 
 (define-test json-consistency-test