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 ;; oyster
  19 (setq navi2ch-oyster-use-oyster t)
  20 (setq navi2ch-oyster-id "pho@cielonegro.org")
  21
  22 ;; Emacs23 mona fonts
  23 (add-hook 'navi2ch-mona-setup-hook
  24           (lambda ()
  25             (set-face-attribute 'navi2ch-mona12-face nil :fontset "fontset-default" :font "Mona 12")
  26             (set-face-attribute 'navi2ch-mona14-face nil :fontset "fontset-default" :font "Mona 14")
  27             (set-face-attribute 'navi2ch-mona16-face nil :fontset "fontset-default" :font "Mona 16")))
  28
  29 ;; others
  30 (add-hook 'navi2ch-before-startup-hook
  31           (lambda ()
  32             (require 'navi2ch-head)))
  33
  34 (setq navi2ch-article-max-buffers 10)
  35 (setq navi2ch-article-auto-expunge t)
  36 (setq navi2ch-message-user-name nil)
  37 (setq navi2ch-mona-enable t)
  38 (setq navi2ch-board-hide-updated-article t)
  39 (setq navi2ch-board-insert-subject-with-diff t)
  40 (setq navi2ch-board-insert-subject-with-unread t)
  41 (setq navi2ch-bookmark-remember-order-after-sort t)
  42 (setq navi2ch-multibbs-send-message-retry-confirm-function #'always-t)
  43 (add-hook 'navi2ch-article-mode-hook
  44           (lambda ()
  45             (local-set-key "\C-xg" 'navi2ch-article-goto-number)))
  46
  47 ;; unifile
  48 ;(require 'navi2ch-unifile)
  49 ;(navi2ch-unifile-enable)
  50
  51 (navi2ch-auto-modify
  52   (setq navi2ch-article-message-filter-by-name-alist
  53     '(("◆.NHnubyYck" . hide)
  54       ("◆3waIkAJWrg" . hide)
  55       ("雷鳥" . hide)
  56       ("ミノワマソ" . hide)
  57       ("◆.EDMOUBKE2" . hide)
  58       ("改行太郎 ◆KAIGYOBBMM " . hide)
  59       ("アジアのこころ" . hide)
  60       ("◆6mIITGYBo. " . hide)
  61       ("地球市民" . hide)
  62       ("深緑の頃" . hide)
  63       ("ハルピン.*HADURI*" . hide)
  64       ("◆Z2KySTSpOo " . hide)
  65       ("Ren \242\241Z2KySTSpOo " . hide)
  66       ("Aho\245\326\245\351\245\363\245\263" . hide)
  67       ("\242\241sFgTo8IM/s" . hide)
  68       ("\245\267\245\345\241\274\245\353" . hide)
  69       ("\242\241QHUMtA89T." . hide)
  70       ("\216\274\216\255\216\260\216\331" . hide)
  71       ("\244\246\244\363\244\301\244\257\244\363" . hide)
  72       ("\260\360\302\364 \242\241lXXXNICUgM " . hide)
  73       ("\261\374\273\263\302\345\311\275" . hide)
  74       ("\242\241DVEmhO17sU " . hide)
  75       ("\262\326\262\320 \242\241osyGemHANA " . hide)
  76       ("\242\241OpB1XIu97E" . hide)
  77       ("wizardHSP/HSS \242\241OpB1XIu97E " . hide)
  78       ("wizard \242\241OpB1XIu97E " . hide)
  79       ("\314\276\314\265\244\267\241\367\302\364\302\274" . hide)
  80       ("HINA \242\241PhwWyNAAxY " . hide)
  81       ("\242\300^\216\252^\242\300 \242\241DOGGYyS6GA " . hide)
  82       ("\242\241hdVZrjZZF2" . hide)
  83       ("\244\242\244\244\245\277\245\363  \242\2413QC.t4i5w6" . hide)
  84       ("\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)
  85       ("\312\335\301\264\244\310\244\363\244\263\244\304" . hide)
  86       ("\275\302\303\253\266\350\314\261 \242\24145V9WSIBUY " . hide)
  87       (("\267\331\302\300" F)
  88        . hide)
  89       ("\245\324\245\355\245\263\243\261\243\261\272\315" . hide)
  90       (("^\245\250\245\337\241\274\245\353" R)
  91        . hide)
  92       ("\244\322\244\355\244\267\243\261\243\260\272\315" . hide)
  93       ("\244\335\244\263\244\313\244\343\244\363 \242\2418wwUsyplVU " . hide)
  94       ("\277\337\313\274 \242\241TDFFzP5Uj. " . hide)
  95       ("\245\333\245\342\241\367\245\265\245\324\245\250\245\363\245\271" . hide)
  96       ("\244\263\244\342\242\253" . hide)
  97       ("\277\245\305\304\244\265\244\363 \242\2418/MtyDeTiY " . hide)
  98       ("\244\342\244\263" . hide)
  99       ("LL COOL J\302\300\317\272" . hide)))
 100   (setq navi2ch-article-message-filter-by-message-alist
 101     '(((".atpages.jp/freeuploader2/" s)
 102        . hide)
 103       ("雷鳥" . hide)
 104       ("雷鳥一号" . hide)
 105       (("\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)
 106        . hide)
 107       ("\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)
 108       ("\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)
 109       ("AWT\244\317\277\300\241\252AWT\244\317\277\300\241\252AWT\244\317\277\300\241\252" . hide)
 110       ("http://d.hatena.ne.jp/khj/" . hide)
 111       ("\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)
 112       ("\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)
 113       ("COPD\244\313\244\312\244\353\244\350" . hide)
 114       ("COPD\244\313\244\312\244\353\244\350\241\243" . hide)
 115       (("\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)
 116        . hide)
 117       (("\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)
 118        . hide)
 119       ("\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)
 120       (("\244\242\244\334\241\274\244\363" e)
 121        . hide)))
 122   (setq navi2ch-article-message-filter-by-mail-alist
 123     '(("baka" . hide)
 124       ("younho@hananet.net" . hide)
 125       ("cat /etc/passwd | mail nobody@nonexistent.com" . hide)))
 126   (setq navi2ch-article-message-filter-by-id-alist
 127         '((("fOKbpvg2" S :invert nil :board-id "livejupiter" :artid nil :float nil :date "2014/02/18")
 128            . hide)
 129           (("W5+B6No2" S :invert nil :board-id "livejupiter" :artid nil :float nil :date "2014/02/14")
 130            . hide)
 131           (("BXAUzhnh" S :invert nil :board-id "livejupiter" :artid nil :float nil :date "2014/02/14")
 132            . hide)
 133           (("TtduwnA0" S :invert nil :board-id "livejupiter" :artid nil :float nil :date "2014/02/11")
 134            . hide)
 135           ("cGBfr+pD" . hide))))