X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=dot-files%2F_navi2ch%2Finit;h=5560e74a7bc4328875ed5a33c63c98314b4180f2;hb=dac4ba9f865650b2a5cf9ca97e6d660c3c3a167d;hp=b348439dcfb70392db444ad7b1aaba02aef729ba;hpb=2ca14e8da17062405a4e73e7e4c4bafe3522cee3;p=sugar.git diff --git a/dot-files/_navi2ch/init b/dot-files/_navi2ch/init index b348439..5560e74 100644 --- 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))))