Elispでは、スラッシュを正しく挿入してパス文字列を取得する方法は？

Question

部分パスとディレクトリ名を連結して、Elispでパス文字列を手動で構築しています。残念なことに、パスはスラッシュで終わることもあります。したがって、必要に応じてディレクトリ名を連結する前にスラッシュを挿入する必要がありますが、それ以外の場合は挿入しないでください。これを行うには良い方法は何ですか？通常通り

Answer 1

(file-name-as-directory dir)は、ディレクトリパスdirに後ろにスラッシュを付け、必要に応じて1つ追加します。あなたは、リスト内のファイル名を含めたい場合

(let ((directory-list '("/foo" "bar/" "p/q/" "x/y")) 
     (file-name "some_file.el")) 
    (concat 
    (mapconcat 'file-name-as-directory directory-list "") 
    file-name)) 

"/foo/bar/p/q/x/y/some_file.el" 

または代替として

、あなたが directory-file-nameを利用することができる：あなたがリストに部分パスのあなたの順序を持​​っていた場合

、あなたのような何かを行うことができますこれはありませんfile-name-as-directoryの反対：

(let ((path-list '("/foo" "bar/" "p/q/" "x/y/some_file.el"))) 
    (mapconcat 'directory-file-name path-list "/")) 

"/foo/bar/p/q/x/y/some_file.el" 

（？ポータブルでない非ディレクトリにdirectory-file-nameを使用している場合誰かが私を修正してください）

Answer 2

このような何かあなたはそれがプラットフォームに依存するために少しそれを肉付けしたいと思いますが、出発点として動作するはず、など

(defun append-path-component (path new-part) 
    (if (string-match ".*/$" path) 
    (concat path new-part) 
    (concat path "/" new-part))) 

、elispのいくつかのビットは、おそらくありますそれはすでに私が気づいていないことをしています。

Answer 3

(defun* tofilename (directorylist &optional (filename nil)) 
    "concatenate directory names into a path, with an optional file name as last part" 
    (concat 
    (mapconcat 'directory-file-name directorylist "/") 
    "/" 
    filename)) 


(tofilename '("~/" "Temp/") "temp.txt") 
;; => "~/Temp/temp.txt" 

(tofilename '("~/" "Temp/")) 
;; => "~/Temp/" 

(tofilename '("~/" "Temp/" "test")) 
;; => "~/Temp/temp/" 

Answer 4

問題のあるコンテンツの一部からファイル名をアセンブルする最も簡単な方法は、expand-file-nameです。たとえば：

は

(expand-file-name "foo.txt") 

は、この一般的な形式は、デフォルトのディレクトリに基づいてあなたの完全なファイル名を与えます：

/home/me/foo.txt 

ができますが、その内容は「/ホーム/彼らはある変数「DIR」を持っている場合/ subdir "を使用したい場合は、次のようにしてください：

(expand-file-name "foo.txt" dir) 

dirが終了するかどうかは関係ありません。あなたが他のプラットホームにいて、他のスラッシュを含んでいれば、正しいこともします。ミックスはありますか？ちょうどそれらをスタック：

(expand-file-name "foo.txt" (expand-file-name "somesubdir" dir)) 

Answer 5

をあなたは本当に相対として相対ファイル名を保つことを気にしない限り、それは常により良いconcatを避け、代わりにexpand-file-nameを使用することがあります。

Answer 6

ファイル操作、ファイルパスの結合と分割、空のディレクトリのチェックなどを行う場合は、最新のファイル操作ライブラリf.elをインストールすることを強くお勧めします。あなたは1つの名前空間の下でファイルとファイルパスの操作機能の巨大なセットを持って、決して再び車輪を再発明しません。

必要な機能は、f-joinです。パスの一部を連結し、必要な場合のみスラッシュを追加します。