]> gitweb @ CieloNegro.org - sugar.git/blob - dot-files/_navi2ch/init
Auto commit by The Sugar System.
[sugar.git] / dot-files / _navi2ch / init
1 ;; -*- emacs-lisp -*-
2
3 ;; general
4 (add-to-list 'load-path (expand-file-name "~/.navi2ch/elisp"))
5
6 ;; sinsure
7 (require 'sinsure)
8
9 ;; custom
10 (require 'navi2ch-board-custom)
11
12 ;; idle-parse
13 (require 'navi2ch-idle-parse)
14
15 ;; migemo
16 (require-if-present 'navi2ch-migemo)
17
18 ;; bbstable
19 (setq navi2ch-list-valid-host-regexp
20       (concat "\\("
21               (regexp-opt '(".2ch.net"
22                             ".bbspink.com"
23                             ".machibbs.com"
24                             ".machi.to"
25                             ".2ch.sc"
26                             "xpic.sc"
27                             ".open2ch.net"
28                             "next2ch.net"))
29               "\\)\\'"))
30 ;; See http://kita.jikkyo.org/cbm/
31 ;;(setq navi2ch-list-bbstable-url
32 ;;      "http://kita.jikkyo.org/cbm/cbm.cgi/20.p0.m0.sc.xp.op.nb/-all/bbsmenu.html")
33
34 ;; proxy
35 (setq navi2ch-net-http-proxy "localhost:8081") ; See ~/sandbox/_communication/2chproxy.pl
36 (setq navi2ch-net-send-message-use-http-proxy nil)
37
38 ;; oyster
39 ;(setq navi2ch-oyster-use-oyster t)
40 ;(setq navi2ch-oyster-id "pho@cielonegro.org")
41
42 ;; Emacs23 mona fonts
43 (add-hook 'navi2ch-mona-setup-hook
44           (lambda ()
45             (set-face-attribute 'navi2ch-mona12-face nil :fontset "fontset-default" :font "Mona 12")
46             (set-face-attribute 'navi2ch-mona14-face nil :fontset "fontset-default" :font "Mona 14")
47             (set-face-attribute 'navi2ch-mona16-face nil :fontset "fontset-default" :font "Mona 16")))
48
49 ;; others
50 (add-hook 'navi2ch-before-startup-hook
51           (lambda ()
52             (require 'navi2ch-head)))
53
54 (setq navi2ch-article-max-buffers 10)
55 (setq navi2ch-article-auto-expunge t)
56 (setq navi2ch-message-user-name nil)
57 (setq navi2ch-mona-enable t)
58 (setq navi2ch-board-hide-updated-article t)
59 (setq navi2ch-board-insert-subject-with-diff t)
60 (setq navi2ch-board-insert-subject-with-unread t)
61 (setq navi2ch-bookmark-remember-order-after-sort t)
62 (setq navi2ch-multibbs-send-message-retry-confirm-function #'always-t)
63 (add-hook 'navi2ch-article-mode-hook
64           (lambda ()
65             (local-set-key "\C-xg" 'navi2ch-article-goto-number)))
66
67 ;; unifile
68 ;(require 'navi2ch-unifile)
69 ;(navi2ch-unifile-enable)
70
71 (navi2ch-auto-modify
72   (setq navi2ch-article-message-filter-by-name-alist
73     '(("◆.NHnubyYck" . hide)
74       ("◆3waIkAJWrg" . hide)
75       ("雷鳥" . hide)
76       ("ミノワマソ" . hide)
77       ("◆.EDMOUBKE2" . hide)
78       ("改行太郎 ◆KAIGYOBBMM " . hide)
79       ("アジアのこころ" . hide)
80       ("◆6mIITGYBo. " . hide)
81       ("地球市民" . hide)
82       ("深緑の頃" . hide)
83       ("ハルピン.*HADURI*" . hide)
84       ("◆Z2KySTSpOo " . hide)
85       ("Ren \242\241Z2KySTSpOo " . hide)
86       ("Aho\245\326\245\351\245\363\245\263" . hide)
87       ("\242\241sFgTo8IM/s" . hide)
88       ("\245\267\245\345\241\274\245\353" . hide)
89       ("\242\241QHUMtA89T." . hide)
90       ("\216\274\216\255\216\260\216\331" . hide)
91       ("\244\246\244\363\244\301\244\257\244\363" . hide)
92       ("\260\360\302\364 \242\241lXXXNICUgM " . hide)
93       ("\261\374\273\263\302\345\311\275" . hide)
94       ("\242\241DVEmhO17sU " . hide)
95       ("\262\326\262\320 \242\241osyGemHANA " . hide)
96       ("\242\241OpB1XIu97E" . hide)
97       ("wizardHSP/HSS \242\241OpB1XIu97E " . hide)
98       ("wizard \242\241OpB1XIu97E " . hide)
99       ("\314\276\314\265\244\267\241\367\302\364\302\274" . hide)
100       ("HINA \242\241PhwWyNAAxY " . hide)
101       ("\242\300^\216\252^\242\300 \242\241DOGGYyS6GA " . hide)
102       ("\242\241hdVZrjZZF2" . hide)
103       ("\244\242\244\244\245\277\245\363  \242\2413QC.t4i5w6" . hide)
104       ("\312\335\241\241\241\241\241\241\241\241\241\241\301\264\241\241\241\241\241\241\241\241\241\241\244\310\241\241\241\241\241\241\241\241\241\241\244\363\241\241\241\241\241\241\241\241\241\241\244\263\241\241\241\241\241\241\241\241\241\241\244\304" . hide)
105       ("\312\335\301\264\244\310\244\363\244\263\244\304" . hide)
106       ("\275\302\303\253\266\350\314\261 \242\24145V9WSIBUY " . hide)
107       (("\267\331\302\300" F)
108        . hide)
109       ("\245\324\245\355\245\263\243\261\243\261\272\315" . hide)
110       (("^\245\250\245\337\241\274\245\353" R)
111        . hide)
112       ("\244\322\244\355\244\267\243\261\243\260\272\315" . hide)
113       ("\244\335\244\263\244\313\244\343\244\363 \242\2418wwUsyplVU " . hide)
114       ("\277\337\313\274 \242\241TDFFzP5Uj. " . hide)
115       ("\245\333\245\342\241\367\245\265\245\324\245\250\245\363\245\271" . hide)
116       ("\244\263\244\342\242\253" . hide)
117       ("\277\245\305\304\244\265\244\363 \242\2418/MtyDeTiY " . hide)
118       ("\244\342\244\263" . hide)
119       ("LL COOL J\302\300\317\272" . hide)))
120   (setq navi2ch-article-message-filter-by-message-alist
121     '(((".atpages.jp/freeuploader2/" s)
122        . hide)
123       ("雷鳥" . hide)
124       ("雷鳥一号" . hide)
125       (("\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)
126        . hide)
127       ("\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\274\253\270\312\267\371\260\255\241\252\241\252" . hide)
128       ("\241\374\277\306\305\270\241\326\300\272\277\300\274\300\264\265\241\327\244\307\244\252\307\272\244\337\244\316\263\247\315\315\244\330" . hide)
129       ("AWT\244\317\277\300\241\252AWT\244\317\277\300\241\252AWT\244\317\277\300\241\252" . hide)
130       ("http://d.hatena.ne.jp/khj/" . hide)
131       ("\277\277\314\314\314\334\244\313\317\303\244\267\271\347\244\244\244\277\244\244\277\315\244\317\260\312\270\345\244\263\244\301\244\351\244\307\244\311\244\246\244\276\241\243" . hide)
132       ("\244\275\244\352\244\343\244\244\244\244\262\303\270\272\245\310\245\352\245\303\245\327\244\342\310\275\314\300\244\271\244\353\244\357" . hide)
133       ("COPD\244\313\244\312\244\353\244\350" . hide)
134       ("COPD\244\313\244\312\244\353\244\350\241\243" . hide)
135       (("\310\376\277\315\244\252\273\320\244\265\244\363\244\316\245\357\245\354\245\341\244\254\270\253\244\354\244\353\245\265\245\244\245\310\310\257\270\253\244\307\244\304\241\252" S)
136        . hide)
137       (("\244\263\244\263\244\316\245\265\245\244\245\310\241\242\245\250\245\303\245\301\244\271\244\256\244\307\244\304\244\350\241\304" S)
138        . hide)
139       ("\272\243\306\374\241\242\272\362\306\374\265\257\244\255\244\306\244\312\244\244\244\263\244\310\244\254\314\300\270\345\306\374\244\3136\306\374\270\345\244\310\244\312\244\352\244\252\273\320\244\301\244\343\244\363\244\254\244\252\267\273\244\301\244\343\244\363\244\316\275\320\315\350\273\366\244\313\310\335\304\352\244\265\244\354\244\306" . hide)
140       (("\244\242\244\334\241\274\244\363" e)
141        . hide)))
142   (setq navi2ch-article-message-filter-by-mail-alist
143     '(("baka" . hide)
144       ("younho@hananet.net" . hide)
145       ("cat /etc/passwd | mail nobody@nonexistent.com" . hide)))
146   (setq navi2ch-article-message-filter-by-id-alist
147         '((("fOKbpvg2" S :invert nil :board-id "livejupiter" :artid nil :float nil :date "2014/02/18")
148            . hide)
149           (("W5+B6No2" S :invert nil :board-id "livejupiter" :artid nil :float nil :date "2014/02/14")
150            . hide)
151           (("BXAUzhnh" S :invert nil :board-id "livejupiter" :artid nil :float nil :date "2014/02/14")
152            . hide)
153           (("TtduwnA0" S :invert nil :board-id "livejupiter" :artid nil :float nil :date "2014/02/11")
154            . hide)
155           ("cGBfr+pD" . hide))))