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

Navi2ch for Emacs (part 5)

13 ：名無しさん＠Ｅｍａｃｓ ：02/02/13 18:46

http://sourceforge.net/tracker/index.php?func=detail&aid=507328&group_id=39552&atid=435775
へのパッチ案です。

(defcustom navi2ch-bm-ask-directory-only-when-textize t
"*non-nil なら、スレを保存するときにディレクトリのみ入力させる。"
:type 'boolean
:group 'navi2ch-board)
を、navi2ch-vars.elへ、

(when (not navi2ch-on-xemacs)
(defalias 'read-directory-name 'read-file-name))
を、どこか適当な所へ
それぞれ加えて、あとは以下のパッチをあててください。

--- navi2ch-board-misc.el.orig Wed Feb 13 18:32:08 2002
+++ navi2ch-board-misc.el Wed Feb 13 18:33:01 2002
@@ -362,11 +362,15 @@
(navi2ch-bm-insert-state item 'update)))))
(message "can't select this line!"))))

-(defun navi2ch-bm-textize-article (directory &optional buffer)
- (interactive "Ddirectory: ")
+(defun navi2ch-bm-textize-article (&optional directory buffer)
+ (interactive)
(let* ((navi2ch-article-view-range nil)
(navi2ch-article-auto-range nil)
- window)
+ window file)
+ (when (null directory)
+ (if navi2ch-bm-ask-directory-only-when-textize
+ (setq directory (read-directory-name "Directory: ")))
+ (setq file (expand-file-name (read-file-name "File: "))))
(setq window (selected-window))
(navi2ch-bm-display-article)
(select-window (get-buffer-window (navi2ch-article-current-buffer)))
@@ -376,16 +380,18 @@
(let* ((article navi2ch-article-current-article)
(board navi2ch-article-current-board)
(id (cdr (assq 'id board)))
- (file (format "%s_%s.txt" id (cdr (assq 'artid article))))
(subject (cdr (assq 'subject article))))
- (and buffer
- (save-excursion
- (set-buffer buffer)
- (goto-char (point-max))
- (insert (format "<a href=\"%s\">%s</a><br>\n" file subject))))
+ (when (null file)
+ (setq file (expand-file-name
+ (format "%s_%s.txt" id (cdr (assq 'artid article)))
+ directory)))
+ (when buffer
+ (save-excursion
+ (set-buffer buffer)
+ (goto-char (point-max))
+ (insert (format "<a href=\"%s\">%s</a><br>\n" file subject))))
(let ((coding-system-for-write navi2ch-coding-system))
- (navi2ch-write-region (point-min) (point-max)
- (expand-file-name file directory))))
+ (navi2ch-write-region (point-min) (point-max) file)))
(select-window window)))

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