パスワードを忘れた? アカウント作成
416099 journal

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

# 便利な機能拡張があればご教授ください。
この議論は賞味期限が切れたので、アーカイブ化されています。 新たにコメントを付けることはできません。
typodupeerror

アレゲは一日にしてならず -- アレゲ見習い

読み込み中...