Avoid grep and awk

Author: yitzchak

src/koga/pin.lisp

@@ -1,9 +1,16 @@
 (in-package #:koga)
 
+(defvar +head-branch-text+ "HEAD branch: ")
+
 (defun pin-repo (pinp &key name extension directory repository branch commit freeze)
   (when (and (not branch)
              (probe-file directory))
-    (setf branch (run-program-capture "git remote show origin | grep 'HEAD branch' | awk '{print $NF}'" :directory directory)))
+    (let* ((output (run-program-capture "git remote show origin" :directory directory))
+           (pos (search +head-branch-text+ output)))
+      (when pos
+        (setf branch (subseq output
+                             (+ pos (length +head-branch-text+))
+                             (position #\newline output :start pos))))))
   (loop for (key value) on `(:name ,name
                              :extension ,extension
                              :directory ,directory