Anal Cuntの日記: Navi2ch - init.el (漏れの設定暫定メモ)
日記 by
Anal Cunt
;;; mona font
(setq navi2ch-mona-enable t)
;;; nickname
(setq navi2ch-message-user-name "")
;;; remember nickname
(setq navi2ch-message-remember-user-name nil)
;;; save old file
(setq navi2ch-net-save-old-file-when-aborn nil)
;;; proxy
;; (navi2ch-net-http-proxy "127.0.0.1:8080")
;; (navi2ch-net-http-proxy-userid "")
;; (navi2ch-net-http-proxy-password "")
;;; gzip compress
(setq navi2ch-enable-readcgi nil)
(setq navi2ch-net-accept-gzip nil)
;;; browser
(setq navi2ch-browse-url-browser-function 'browse-url-generic
browse-url-generic-program "mozilla"
browse-url-new-window-flag t
browse-url-mozilla-new-window-is-tab t)
;;; board mode not out hide thread
;; (setq navi2ch-board-hide-updated-article t)
;;; filter
(setq navi2ch-article-message-filter-by-name-alist
'(("◆9rGP24WR/2" . hide)
("◆AJnTBds.bg" . hide)
("山崎13" . hide)
("◆5c5udzFPUI" . hide)))
;;(setq navi2ch-article-message-filter-by-mail-alist
;; '(("あぼーん" . hide)
;; ("(^^)" . hide)
;; ("piracy at accsjp dot or dot jp" . hide)))
;;(setq navi2ch-article-message-filter-by-message-alist
;; '((("\\`\\([tt][ee][ss][tt]\\|テスト\\|て\\(すと\\|[ss][tt]\\)\\|テスト\\)\\'" r) . hide)
;; (("\\`\\([ss]?[aa][gg][ee]\\|[あさ]げ\\|[アサ]ゲ\\|[アサ]ゲ\\)\\'" r) . hide)
;; (("\\`[ \t]*\\'" r) . hide)
;; (("\\`\\(保守\\|ほしゅ\\|ホシュ\\|ホシュ\\)\\(s?age\\|[あさ]げ\\|[アサ]ゲ\\|[アサ]ゲ\\)?\\'" r) . hide)))
;;; thread buffer TAB key move link
;; (setq navi2ch-article-get-url-text nil)
;;; bookmark sort
(setq navi2ch-bookmark-remember-order-after-sort t)
;;; see local rule
;; (require 'navi2ch-head)
;;; auto old comment aborn
;; (setq navi2ch-article-auto-expunge t)
;; (setq navi2ch-article-max-buffers 50)
;;; add host list
(add-to-list 'navi2ch-2ch-host-list "jbbs.shitaraba.com")
;;; thread title displays on the frame of window manager
(defun my-navi2ch-article-set-frame-title ()
(make-local-variable 'frame-title-format)
(setq frame-title-format
(navi2ch-replace-string
"%" "%%"
(format "navi2ch: %s: %s"
(cdr (assq 'name navi2ch-article-current-board))
(cdr (assq 'subject navi2ch-article-current-article)))
t)))
(when (featurep 'frame)
(add-hook 'navi2ch-article-mode-hook
'my-navi2ch-article-set-frame-title))
;;; bookmark mode response number display
(defun navi2ch-bookmark-insert-subject (num item)
(navi2ch-bm-insert-subject
item num
(cdr (assq 'subject (navi2ch-bookmark-get-article item)))
(format "(%4d) [%s]"
(my-navi2ch-bookmark-get-article-last-number item)
(cdr (assq 'name (navi2ch-bookmark-get-board item))))))
(defun my-navi2ch-bookmark-get-article-last-number (item)
(let ((file (navi2ch-article-get-file-name
(navi2ch-bookmark-get-board item)
(navi2ch-bookmark-get-article item)))
num)
(save-excursion
(when (file-exists-p file)
(with-temp-buffer
(navi2ch-insert-file-contents file)
(setq num (count-lines (point-min) (point-max))))))
(or num 0)))
(defadvice navi2ch-bookmark-fetch-article
(after navi2ch-bookmark-fetch-article-redraw-line activate)
(let ((item (navi2ch-bookmark-get-property (point)))
(buffer-read-only nil) num)
(save-excursion
(beginning-of-line)
(looking-at " *\\([0-9]+\\)")
(setq num (string-to-number (match-string 1)))
(delete-region (point) (1+ (line-end-position)))
(navi2ch-bookmark-insert-subject num item))))
# 便利な機能拡張があればご教授ください。
(setq navi2ch-mona-enable t)
;;; nickname
(setq navi2ch-message-user-name "")
;;; remember nickname
(setq navi2ch-message-remember-user-name nil)
;;; save old file
(setq navi2ch-net-save-old-file-when-aborn nil)
;;; proxy
;; (navi2ch-net-http-proxy "127.0.0.1:8080")
;; (navi2ch-net-http-proxy-userid "")
;; (navi2ch-net-http-proxy-password "")
;;; gzip compress
(setq navi2ch-enable-readcgi nil)
(setq navi2ch-net-accept-gzip nil)
;;; browser
(setq navi2ch-browse-url-browser-function 'browse-url-generic
browse-url-generic-program "mozilla"
browse-url-new-window-flag t
browse-url-mozilla-new-window-is-tab t)
;;; board mode not out hide thread
;; (setq navi2ch-board-hide-updated-article t)
;;; filter
(setq navi2ch-article-message-filter-by-name-alist
'(("◆9rGP24WR/2" . hide)
("◆AJnTBds.bg" . hide)
("山崎13" . hide)
("◆5c5udzFPUI" . hide)))
;;(setq navi2ch-article-message-filter-by-mail-alist
;; '(("あぼーん" . hide)
;; ("(^^)" . hide)
;; ("piracy at accsjp dot or dot jp" . hide)))
;;(setq navi2ch-article-message-filter-by-message-alist
;; '((("\\`\\([tt][ee][ss][tt]\\|テスト\\|て\\(すと\\|[ss][tt]\\)\\|テスト\\)\\'" r) . hide)
;; (("\\`\\([ss]?[aa][gg][ee]\\|[あさ]げ\\|[アサ]ゲ\\|[アサ]ゲ\\)\\'" r) . hide)
;; (("\\`[ \t]*\\'" r) . hide)
;; (("\\`\\(保守\\|ほしゅ\\|ホシュ\\|ホシュ\\)\\(s?age\\|[あさ]げ\\|[アサ]ゲ\\|[アサ]ゲ\\)?\\'" r) . hide)))
;;; thread buffer TAB key move link
;; (setq navi2ch-article-get-url-text nil)
;;; bookmark sort
(setq navi2ch-bookmark-remember-order-after-sort t)
;;; see local rule
;; (require 'navi2ch-head)
;;; auto old comment aborn
;; (setq navi2ch-article-auto-expunge t)
;; (setq navi2ch-article-max-buffers 50)
;;; add host list
(add-to-list 'navi2ch-2ch-host-list "jbbs.shitaraba.com")
;;; thread title displays on the frame of window manager
(defun my-navi2ch-article-set-frame-title ()
(make-local-variable 'frame-title-format)
(setq frame-title-format
(navi2ch-replace-string
"%" "%%"
(format "navi2ch: %s: %s"
(cdr (assq 'name navi2ch-article-current-board))
(cdr (assq 'subject navi2ch-article-current-article)))
t)))
(when (featurep 'frame)
(add-hook 'navi2ch-article-mode-hook
'my-navi2ch-article-set-frame-title))
;;; bookmark mode response number display
(defun navi2ch-bookmark-insert-subject (num item)
(navi2ch-bm-insert-subject
item num
(cdr (assq 'subject (navi2ch-bookmark-get-article item)))
(format "(%4d) [%s]"
(my-navi2ch-bookmark-get-article-last-number item)
(cdr (assq 'name (navi2ch-bookmark-get-board item))))))
(defun my-navi2ch-bookmark-get-article-last-number (item)
(let ((file (navi2ch-article-get-file-name
(navi2ch-bookmark-get-board item)
(navi2ch-bookmark-get-article item)))
num)
(save-excursion
(when (file-exists-p file)
(with-temp-buffer
(navi2ch-insert-file-contents file)
(setq num (count-lines (point-min) (point-max))))))
(or num 0)))
(defadvice navi2ch-bookmark-fetch-article
(after navi2ch-bookmark-fetch-article-redraw-line activate)
(let ((item (navi2ch-bookmark-get-property (point)))
(buffer-read-only nil) num)
(save-excursion
(beginning-of-line)
(looking-at " *\\([0-9]+\\)")
(setq num (string-to-number (match-string 1)))
(delete-region (point) (1+ (line-end-position)))
(navi2ch-bookmark-insert-subject num item))))
# 便利な機能拡張があればご教授ください。
Navi2ch - init.el (漏れの設定暫定メモ) More ログイン