Top / MeadowMemo / diredでファイルの内容を表示―bf-mode

diredでファイルの内容を表示させるもの.

Meadow Memo内の説明は「dired でファイルの内容を表示 ― bf-mode

ファイルはこちらからダウンロードできます。

最新の100件を表示しています。 コメントページを参照

  • かなり投げやりですが画像表示できるようにしました。 -- iso人? 2003-11-03 (月) 17:49:18
  • diredのキーマップをそのまま使えるようにしました。v1.51 キーマップ変更してなければかぶらないハズですが…チェック求む -- iso人? 2003-11-22 (土) 18:27:50
    • たとえば、 bf-mode のままで、 d で削除マークを付けることができます -- iso人? 2003-11-22 (土) 18:32:50
  • リクエストですが、C-x dをした時に常にオンにならないでしょうか。で、qでbf-modeの終了ではなく、diredの終了にしたいです。 -- 松下 2003-11-22 (土) 21:12:26
    • 遅くなりましたが、やってみました。 v1.57でし。 -- iso人? 2003-12-06 (土) 18:09:25
      • ありがとうございます。 -- 松下 2003-12-07 (日) 15:10:32
    • デフォではオフにしてますので、.emacsにてそれぞれ、(setq bf-mode-enable-at-starting-dired t) (setq bf-mode-directly-quit t) としてください。 -- iso人? 2003-12-06 (土) 18:14:08
  • ところで、このページから添付のソースコードにリンクを張りたいのですがどうしたらいいのでしょう??? -- iso人? 2003-12-06 (土) 18:15:51
    • #ref(bf-mode.el) でできます。 -- 松下 2003-12-07 (日) 15:10:57
      • コメントでは無理か。。。 -- 松下 2003-12-07 (日) 15:11:20
      • ナルホドです。おまけに、ページも直してもらってるし、ありがとうございます(^^; -- iso人? 2003-12-07 (日) 16:52:33
  • ついでに、もひとつFIXしときました。 いままで、マークして次の行に移動すると表示が更新されませんでしたが、それを直しました。 v1.59です。 -- iso人? 2003-12-06 (土) 18:46:02
  • 地味にfixedです。dired終了時に、関係ないバッファまで削除していたのを修正しました。v1.60としました。 -- iso人? 2005-12-28 (水) 19:57:38
お名前:

xdoc2txt と一緒に使う &aname(n4591a1b,super,full)\{†};

xdoc2txt を使うとword もテキストファイルとして書き出すことができます.したがって, このソフトを使えば,WordもPDFも dired から内容を確認できるのです.

方法は,まずxdoc2txt を

http://www31.ocn.ne.jp/~h_ishida/

からダウンロードし,パスの通ったところへ置きます.そして,以下のパッチを bf-mode にあてます.

これで,word ファイルをdiredから見ることができます.ほんとは xdoc2txt の存在確認 とかもした方がいいんですが,面倒なのでやってません.

xdoc2txt はいろんなものと連携できそうですね.

diff -c "f:/home/www/elc/bf-mode.el" "f:/home/packages/bf-mode/site-lisp/bf-mode/bf-mode.el"
*** f:/home/www/elc/bf-mode.el	Sun Dec  7 15:12:30 2003
--- f:/home/packages/bf-mode/site-lisp/bf-mode/bf-mode.el	Mon Apr  5 18:03:42 2004
***************
*** 125,136 ****
  Non-nil means verbosely. Nil means simply.\n
  This variable applies to directories only.")
  
! (defvar bf-mode-except-exts '("\\.exe$" "\\.com$" "\\.elc$")
    "*List of file extensions which are excepted to browse.")
  
  (defvar bf-mode-image-exts '("\\.png$"  "\\.gif$" "\\.bmp$" "\\.jp[e]?g$")
    "*List of file extensions which are handled as image.")
  
  (defvar bf-mode-force-browse-exts ()
    "*List of file extensions which are forced browsing independent of its size.")
  (defvar bf-mode-enable-at-starting-dired nil
--- 125,145 ----
  Non-nil means verbosely. Nil means simply.\n
  This variable applies to directories only.")
  
! (defvar bf-mode-except-exts '("\\.exe$" "\\.com$" "\\.elc$" "\\.lnk$")
    "*List of file extensions which are excepted to browse.")
  
  (defvar bf-mode-image-exts '("\\.png$"  "\\.gif$" "\\.bmp$" "\\.jp[e]?g$")
    "*List of file extensions which are handled as image.")
  
+ (defvar bf-mode-xdoc2txt-exts '(
+                             "\\.rtf" "\\.doc" "\\.xls" "\\.ppt"
+                             "\\.jaw" "\\.jtw" "\\.jbw" "\\.juw"
+                             "\\.jfw" "\\.jvw" "\\.jtd" "\\.jtt"
+                             "\\.oas" "\\.oa2" "\\.oa3" "\\.bun"
+                             "\\.wj2" "\\.wj3" "\\.wk3" "\\.wk4"
+                             "\\.123" "\\.wri" "\\.pdf" "\\.mht")
+   "*List of file extensions which are handled by xdoc2txt.")
+ 
  (defvar bf-mode-force-browse-exts ()
    "*List of file extensions which are forced browsing independent of its size.")
  (defvar bf-mode-enable-at-starting-dired nil
***************
*** 214,219 ****
--- 223,233 ----
      ;; do nothing
      )
  
+    ;; xdoc2txt
+    ((eq bf-mode-browsing-category 'xdoc2txt)
+     ;; do nothing
+     )
+ 
     ;; archive: toggle verbose/simply
     ((eq bf-mode-browsing-category 'archive)
      (setq bf-mode-archive-list-verbose (not bf-mode-archive-list-verbose))
***************
*** 363,368 ****
--- 377,386 ----
  	(bf-mode-browse-image filename)
  	(setq bf-mode-browsing-category 'image))
  
+        ((bf-mode-correspond-ext-p filename bf-mode-xdoc2txt-exts)
+ 	(bf-mode-browse-xdoc2txt filename)
+ 	(setq bf-mode-browsing-category 'xdoc2txt))
+ 
         ;; archive
         ((string-match "\\.tar\\.gz$" filename)
  	(bf-mode-browse-archive filename
***************
*** 485,490 ****
--- 503,545 ----
    (bf-mode-set-window-start-line 1)
  )
  
+ ;; xdoc2txt
+ (defun bf-mode-browse-xdoc2txt (filename)
+   (kill-buffer bf-mode-current-browsing-buffer)
+   (let ((dummy-buff (generate-new-buffer (concat "bf:"
+ 						 (file-name-nondirectory
+ 						  filename)))))
+     (set-buffer dummy-buff)
+     (let ((fn (concat
+                (expand-file-name
+                 (make-temp-name "xdoc2")
+                 temporary-file-directory)
+                "."
+                (file-name-extension filename)))
+           (str nil))
+       (copy-file filename fn t)
+       (insert
+        "XDOC2TXT FILE: " (file-name-nondirectory filename) "\n"
+        "----------------------------------------------------\n"
+        (shell-command-to-string
+         (concat
+        "cd " (file-name-directory fn) ";"
+        "xdoc2txt" " -e " (file-name-nondirectory fn))))
+       (goto-char (point-min))
+       (while (re-search-forward "\r" nil t)
+         (delete-region (match-beginning 0)
+                        (match-end 0)))
+        (goto-char (point-min))
+        (while (re-search-forward "\\([\n ]+\\)\n[ ]*\n" nil t)
+          (delete-region (match-beginning 1)
+                         (match-end 1)))
+       (delete-file fn)
+       )
+     (setq buffer-read-only t)
+     (set-window-buffer (selected-window) dummy-buff))
+   (bf-mode-set-window-start-line 1)
+ )
+ 
  ;; archives
  (defun bf-mode-browse-archive (filename command)
    (kill-buffer bf-mode-current-browsing-buffer)

添付ファイル: filebf-mode.el 1830件 [詳細]

リロード   新規 編集 凍結 差分 添付 複製 改名   トップ 一覧 検索 最終更新 バックアップ   ヘルプ   最終更新のRSS
Last-modified: Fri, 28 Dec 2007 17:22:05 JST (3409d)