Auto commit by The Sugar System.

[sugar.git] / dot-files / _navi2ch / init

diff --git a/dot-files/_navi2ch/init b/dot-files/_navi2ch/init
index b348439dcfb70392db444ad7b1aaba02aef729ba..5560e74a7bc4328875ed5a33c63c98314b4180f2 100644 (file)
--- a/dot-files/_navi2ch/init
+++ b/dot-files/_navi2ch/init
@@ -13,17 +13,39 @@
 (require 'navi2ch-idle-parse)
 
 ;; migemo
-(require 'navi2ch-migemo)
+(require-if-present 'navi2ch-migemo)
+
+;; bbstable
+(setq navi2ch-list-valid-host-regexp
+      (concat "\\("
+              (regexp-opt '(".2ch.net"
+                            ".bbspink.com"
+                            ".machibbs.com"
+                            ".machi.to"
+                            ".2ch.sc"
+                            "xpic.sc"
+                            ".open2ch.net"
+                            "next2ch.net"))
+              "\\)\\'"))
+; See http://kita.jikkyo.org/cbm/
+(setq navi2ch-list-bbstable-url
+      "http://kita.jikkyo.org/cbm/cbm.cgi/20.p0.m0.sc.xp.op.nb/-all/bbsmenu.html")
 
 ;; oyster
-(setq navi2ch-oyster-use-oyster t)
-(setq navi2ch-oyster-id "pho@cielonegro.org")
-(setq navi2ch-oyster-password "gestalt")
+;(setq navi2ch-oyster-use-oyster t)
+;(setq navi2ch-oyster-id "pho@cielonegro.org")
+
+;; Emacs23 mona fonts
+(add-hook 'navi2ch-mona-setup-hook
+          (lambda ()
+            (set-face-attribute 'navi2ch-mona12-face nil :fontset "fontset-default" :font "Mona 12")
+            (set-face-attribute 'navi2ch-mona14-face nil :fontset "fontset-default" :font "Mona 14")
+            (set-face-attribute 'navi2ch-mona16-face nil :fontset "fontset-default" :font "Mona 16")))
 
 ;; others
 (add-hook 'navi2ch-before-startup-hook
-         (lambda ()
-           (require 'navi2ch-head)))
+          (lambda ()
+            (require 'navi2ch-head)))
 
 (setq navi2ch-article-max-buffers 10)
 (setq navi2ch-article-auto-expunge t)
@@ -35,8 +57,8 @@
 (setq navi2ch-bookmark-remember-order-after-sort t)
 (setq navi2ch-multibbs-send-message-retry-confirm-function #'always-t)
 (add-hook 'navi2ch-article-mode-hook
-         (lambda ()
-           (local-set-key "\C-xg" 'navi2ch-article-goto-number)))
+          (lambda ()
+            (local-set-key "\C-xg" 'navi2ch-article-goto-number)))
 
 ;; unifile
 ;(require 'navi2ch-unifile)
@@ -44,7 +66,7 @@
 
 (navi2ch-auto-modify
   (setq navi2ch-article-message-filter-by-name-alist
-       '(("◆.NHnubyYck" . hide)
+    '(("◆.NHnubyYck" . hide)
       ("◆3waIkAJWrg" . hide)
       ("雷鳥" . hide)
       ("ミノワマソ" . hide)
@@ -92,7 +114,9 @@
       ("\244\342\244\263" . hide)
       ("LL COOL J\302\300\317\272" . hide)))
   (setq navi2ch-article-message-filter-by-message-alist
-       '(("雷鳥" . hide)
+    '(((".atpages.jp/freeuploader2/" s)
+       . hide)
+      ("雷鳥" . hide)
       ("雷鳥一号" . hide)
       (("\245\244\245\244\245\244\245\243\245\243\245\244\245\243\245\344\245\303\245\333\245\252\245\252\245\252\245\245\245\303\245\245\245\246\245\246" s)
        . hide)
@@ -112,5 +136,16 @@
       (("\244\242\244\334\241\274\244\363" e)
        . hide)))
   (setq navi2ch-article-message-filter-by-mail-alist
-       '(("younho@hananet.net" . hide)
-      ("cat /etc/passwd | mail nobody@nonexistent.com" . hide))))
+    '(("baka" . hide)
+      ("younho@hananet.net" . hide)
+      ("cat /etc/passwd | mail nobody@nonexistent.com" . hide)))
+  (setq navi2ch-article-message-filter-by-id-alist
+        '((("fOKbpvg2" S :invert nil :board-id "livejupiter" :artid nil :float nil :date "2014/02/18")
+           . hide)
+          (("W5+B6No2" S :invert nil :board-id "livejupiter" :artid nil :float nil :date "2014/02/14")
+           . hide)
+          (("BXAUzhnh" S :invert nil :board-id "livejupiter" :artid nil :float nil :date "2014/02/14")
+           . hide)
+          (("TtduwnA0" S :invert nil :board-id "livejupiter" :artid nil :float nil :date "2014/02/11")
+           . hide)
+          ("cGBfr+pD" . hide))))