レス数が1000を超えています。残念ながら全部は表示しません。

Navi2ch for Emacs (part 7)

842 ：名無しさん＠お腹いっぱい。 ：02/11/21 02:58

某板の規制が強化されて (´･ω･`)ｼｮﾎﾞｰﾝ なのでパクッテみますた。

;;; navi2ch-settingtxt.el --- View a SETTING.TXT for navi2ch
;; navi2ch-head.el のまんまっす。
(provide 'navi2ch-settingtxt)
(require 'navi2ch)
(require 'navi2ch-head)

(defun navi2ch-settingtxt-get-uri ()
"SETTING.TXTのURI"
(cond ((eq major-mode 'navi2ch-article-mode)
(concat
(cdr (assoc 'uri navi2ch-article-current-board)) "SETTING.TXT"))
((eq major-mode 'navi2ch-board-mode)
(concat
(cdr (assoc 'uri navi2ch-board-current-board)) "SETTING.TXT"))))

(define-key navi2ch-article-mode-map "\C-cS"
'navi2ch-settingtxt-get-settingtxt)
(define-key navi2ch-board-mode-map "\C-cS"
'navi2ch-settingtxt-get-settingtxt)

843 ：名無しさん＠お腹いっぱい。 ：02/11/21 02:59

(defun navi2ch-settingtxt-get-settingtxt ()
"SETTING.TXT を持ってきて表示。SETTING.TXT に保存しちゃうよ。"
(interactive)
(let* ((uri (navi2ch-settingtxt-get-uri))
(filename (concat (expand-file-name navi2ch-directory) "/"
(progn
(string-match "^http://\\(.*\\)" uri)
(match-string 1 uri)))))
(or navi2ch-offline
(navi2ch-net-update-file uri filename))
(message uri filename)
(save-excursion
(find-file filename)
(set-buffer-modified-p nil)
(navi2ch-head-mode))))

(run-hooks 'navi2ch-settingtxt-load-hook)
;;; navi2ch-settingtxt.el ends here

read.cgi ver5.26+ (01/10/21-)