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))))