Supoprt ghq default direcotry(~/.ghq).

[sonatard]

Emacs lispをinit.el以外で初めて書いてPRさせて頂きました。
部分的に動作させながらコードを理解して、標準出力させた値を元にrootディレクトリをとってきているところは理解できたのですが、純粋に標準出力だけを実現する方法がわからずcall-processでechoしてしまいました。
(princなどでは文字列が評価されて2回出力されてしまう)
Emacs Lisp で prin1とprincとprintの違い - ながとダイアリー
http://d.hatena.ne.jp/mclh46/20100914/1284465897

その他も含めて問題があれば再度修正後にPRさせて貰いたいと思うのでレビューよろしくお願いします。

[syohex]

新しい ghqコマンドだと rootサブコマンドがあるのでそちらを使う方がよいのでは
ないでしょうか ?

[syohex]

こんな具合にすればよいかと思います.

(defun helm-ghq--root ()
  (with-temp-buffer
    (unless (zerop (process-file "ghq" nil t nil "root"))
      (error "Failed: 'ghq root'"))
    (goto-char (point-min))
    (helm-current-line-contents)))

[syohex]

部分的に動作させながらコードを理解して、標準出力させた値を元にrootディレクトリをとってきているところは理解できたのですが、純粋に標準出力だけを実現する方法がわからずcall-processでechoしてしまいました。
(princなどでは文字列が評価されて2回出力されてしまう)

insertでいいと思います. call-processの第三引数は標準出力を現在のバッファ(ここだと tempbuffer)に
出力するという意味になります. なんで標準出力に出すことが重要じゃなく, 現在のバッファにそれを
書き出すことが重要です. しかしまあそれはその先の処理で現在のバッファの文字列を切り出している
からの話であって, 追加されたようなケースでは単に文字列を返すだけで十分です. helm-ghq--rootは
ghqの rootディレクトリを文字列で返す関数なので, 現在のバッファに書き出すことなどせず, 文字列だけ
返せばよいです.

[sonatard]

@syohex いつもありがとうございます！
ghq rootコマンドで動作確認できました。
ghq rootコマンド自体はgitconfigにrootがなければ~/.ghqを返すようなので、実際には~/.ghqディレクトリがない可能性はあるのですが、これはhelm-ghqで対応する必要はないと思うのでディレクトリのチェックはしていません。

部分的に動作させながらコードを理解して、標準出力させた値を元にrootディレクトリをとってきているところは理解できたのですが、純粋に標準出力だけを実現する方法がわからずcall-processでechoしてしまいました。
(princなどでは文字列が評価されて2回出力されてしまう)

insertでいいと思います. call-processの第三引数は標準出力を現在のバッファ(ここだと tempbuffer)に
出力するという意味になります. なんで標準出力に出すことが重要じゃなく, 現在のバッファにそれを
書き出すことが重要です. しかしまあそれはその先の処理で現在のバッファの文字列を切り出している
からの話であって, 追加されたようなケースでは単に文字列を返すだけで十分です. helm-ghq--rootは
ghqの rootディレクトリを文字列で返す関数なので, 現在のバッファに書き出すことなどせず, 文字列だけ
返せばよいです.

insertでバッファにかけるんですね。
PR対応だけではなくemacs lispまで教えていただきありがとうございます！

[masutaka]

古いバージョンを使っている人はここに来るので、
「ghq rootはverXXから追加された」ことを書けばよいかと思いましたが、
https://github.com/motemen/ghq/releases 見るとリリース版には入ってないのですね。
(ghq root自体は x-motemen/ghq#34 でマージされた)

[masutaka]

ああ、"No help topic for 'root'"という文字列が返るのかな。

[syohex]

rootサブコマンドが実装されたバージョンのバイナリがリリースされていない
ことは見落としていました. リリースされるまでは fallbackさせる等する必要が
ありそうです(さすがに go getでインストールさせるのはやりすぎだと思うので)

[masutaka]

PRありがとうございます！ちょっと考えます。

※ force pushされたようですが、経緯が分からなくなるのであまりオススメしません。

[sonatard]

@masutaka ご対応ありがとうございます。

PRありがとうございます！ちょっと考えます。
※ force pushされたようですが、経緯が分からなくなるのであまりオススメしません。

元々は~/.ghqのディレクトリの有無を判断して存在した場合にはecho "~/.ghq"しておりました。
ご迷惑をおかけしていますが検討よろしくお願いします

[syohex]

あと詳しく見ていなかったのですが, ghqに存在しないサブコマンドを与えても
error statusが 0になりますので, コマンドの戻り値が 0かどうかでチェックする
というのはできなそうです.(これは ghqの問題でなく, cliというライブラリの
問題のように思えますが).

[syohex]

すべてを考慮するとこんな感じでしょうか.

diff --git a/helm-ghq.el b/helm-ghq.el
index d08af0e..c06e23c 100644
--- a/helm-ghq.el
+++ b/helm-ghq.el
@@ -52,12 +52,21 @@
   `(buffer-substring-no-properties
     (line-beginning-position) (line-end-position)))

+(defun helm-ghq--root-fallback ()
+  (erase-buffer)
+  (unless (zerop (process-file "git" nil t nil "config" "ghq.root"))
+    (error "Failed: Can't find ghq.root"))
+  (goto-char (point-min))
+  (expand-file-name (helm-ghq--line-string)))
+
 (defun helm-ghq--root ()
   (with-temp-buffer
-    (unless (zerop (call-process "git" nil t nil "config" "ghq.root"))
-      (error "Failed: Can't find ghq.root"))
+    (process-file "ghq" nil t nil "root")
     (goto-char (point-min))
-    (expand-file-name (helm-ghq--line-string))))
+    (let ((output (helm-ghq--line-string)))
+      (if (string-match-p "\\`No help topic" output)
+          (helm-ghq--root-fallback)
+        (expand-file-name output)))))

 (defun helm-ghq--list-candidates ()
   (with-temp-buffer

[sonatard]

@syohex ありがとうございます。
以下であっていますか？

1. ghq rootでrootを取得(configのghq.rootの値もしくはデフォルトの~/.ghq)
2. もしgit rootコマンド対応でなければgit config ghq.rootでrootを取得(configのghq.root)

masutakaさんが宜しければsyohexさんものを追加でコミットしたいと思いますのでそのときは言ってください。

[syohex]

以下であっていますか？

1. ghq rootでrootを取得(configのghq.rootの値もしくはデフォルトの~/.ghq)
2. もしgit rootコマンド対応でなければgit config ghq.rootでrootを取得(configのghq.root)

はい.

[masutaka]

masutakaさんが宜しければsyohexさんものを追加でコミットしたいと思いますのでそのときは言ってください。

👍

[masutaka]

ありがとうございます。

[masutaka]

@sona-tar
commit logのAuthorのEmailアドレスのドメインが@gmail.co.jpとおかしいので、
~/.gitconfig等確認したほうが良さそうです。
(commit logでアイコンが出ないのも多分それが原因かと。)

[sonatard]

@masutaka マージとメールの件ありがとうございます。
@gmai.comに直したところアイコンが正しく表示されるようになりました。