maio · September 1, 2019 17:44
diff --git a/git-log-commits.hy b/git-log-commits.hy
 (defn git-log-commits [s]
  "Split standard git log output to commits"
  (setv items (.split s "\ncommit "))
  (if (< (len items) 2)
      items
    (+ [(first items)]
       (lfor item (rest items) f"commit {item}"))))
diff --git a/hy-utils.md b/hy-utils.md
diff --git a/sh.hy b/sh.hy
 (defn sh [cmd]
  (import [subprocess [getoutput]])
  (getoutput cmd))
	(defn git-log-commits [s]
	"Split standard git log output to commits"
	(setv items (.split s "\ncommit "))
	(if (< (len items) 2)
	items
	(+ [(first items)]
	(lfor item (rest items) f"commit {item}"))))
	(defn sh [cmd]
	(import [subprocess [getoutput]])
	(getoutput cmd))