<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Hexe19 &#187; meadow</title>
	<atom:link href="http://hexe19.net/tag/meadow/feed/" rel="self" type="application/rss+xml" />
	<link>http://hexe19.net</link>
	<description>*scratch*</description>
	<lastBuildDate>Sat, 16 May 2009 03:54:11 +0000</lastBuildDate>
	<generator>http://wordpress.org/?v=2.8.6</generator>
	<language>ja</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
			<item>
		<title>emacs(Meadow) de dired からファイルを CraftDrop 送りにする</title>
		<link>http://hexe19.net/2008/03/26/34/emacsmeadow-de-dired-%e3%81%8b%e3%82%89%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e3%82%92-craftdrop-%e9%80%81%e3%82%8a%e3%81%ab%e3%81%99%e3%82%8b/</link>
		<comments>http://hexe19.net/2008/03/26/34/emacsmeadow-de-dired-%e3%81%8b%e3%82%89%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e3%82%92-craftdrop-%e9%80%81%e3%82%8a%e3%81%ab%e3%81%99%e3%82%8b/#comments</comments>
		<pubDate>Wed, 26 Mar 2008 14:53:23 +0000</pubDate>
		<dc:creator>you</dc:creator>
				<category><![CDATA[Emacs]]></category>
		<category><![CDATA[CraftDrop]]></category>
		<category><![CDATA[dired]]></category>
		<category><![CDATA[meadow]]></category>

		<guid isPermaLink="false">http://hexe19.net/2008/03/26/34/</guid>
		<description><![CDATA[Meadow で、 dired から外部のプログラムへファイルを送る実験。
CraftDrop というコマンドラインからファイルを、起動中のプログラムへファイルをドラッグ＆ドロップするプログラムを使用する。
cdrop.exe, cdropopt.exe, cdrop.dat(←cdrop.exeを初回起動時に作成される) を PATH の通ったところにコピー。
（めんどかったので、meadow/bin に放り込んだ）
.emacs に↓を追加:
;; dired で "c" でファイルを CraftDrop 送り
(add-hook 'dired-mode-hook
          (lambda ()
            (local-set-key "c" 'dired-exec-craftdrop)))
(defun dired-exec-craftdrop ()
  "In dired, execute CraftDrop"
  (interactive)
  (craftdrop [...]]]></description>
			<content:encoded><![CDATA[<p>Meadow で、 dired から外部のプログラムへファイルを送る実験。</p>
<p><a href="http://hp.vector.co.jp/authors/VA012411/chapter-10.html">CraftDrop</a> というコマンドラインからファイルを、起動中のプログラムへファイルをドラッグ＆ドロップするプログラムを使用する。<br />
cdrop.exe, cdropopt.exe, cdrop.dat(←cdrop.exeを初回起動時に作成される) を PATH の通ったところにコピー。<br />
（めんどかったので、meadow/bin に放り込んだ）</p>
<p>.emacs に↓を追加:</p>
<pre class="code">;; dired で "c" でファイルを CraftDrop 送り
(add-hook 'dired-mode-hook
          (lambda ()
            (local-set-key "c" 'dired-exec-craftdrop)))
(defun dired-exec-craftdrop ()
  "In dired, execute CraftDrop"
  (interactive)
  (craftdrop (dired-get-filename)))
;; 現在の行のファイルを craftdrop 送りにする
(define-process-argument-editing "/cdrop\\.exe$"
  (lambda (x)
    (general-process-argument-editing-function x nil nil nil)))
(defun craftdrop (&#038;optional fname)
  (interactive)
  (if (not (file-exists-p fname))
      (message "%s can't open." fname)
    (setq fname (unix-to-dos-filename fname))
    (let ((w32-start-process-show-window t))
      (apply (function start-process)
             "cdrop" nil "cdrop.exe" (list fname)))))
</pre>
<p><kbd>C-x d </kbd> で dired を起動して、何かファイルにカーソルを合わせた状態で c を押すと、そのファイルを CraftDrop 送りにできる。</p>
<p>CraftDrop をまだ、ちゃんと使ってないので、このコードが活きてくるのか不明・・・。</p>
<p>参考にしたサイト:</p>
<ul>
<li><a href="http://www.bookshelf.jp/cgi-bin/wwwsrch2ch.cgi?WORD=hoge&#038;index=software">検索結果</a></li>
<li><a href="http://www.bookshelf.jp/soft/meadow_25.html#SEC277">25.3.7 dired から関連付けられたソフトで開く</a></li>
</ul>
]]></content:encoded>
			<wfw:commentRss>http://hexe19.net/2008/03/26/34/emacsmeadow-de-dired-%e3%81%8b%e3%82%89%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e3%82%92-craftdrop-%e9%80%81%e3%82%8a%e3%81%ab%e3%81%99%e3%82%8b/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
