macro.hy

(import [glob [glob]]
	[os.path [expanduser]])

(defmacro pattern-glob [folder pattern]
  (quasiquote (
	       (let [[folderpath (expanduser (unquote folder))]]
		 (if (not (.endswith folderpath "/"))
		   (setv folderpath (+ folderpath "/")))
		 (fn [] (glob (+ folderpath
				 (unquote pattern))))))))

;; (print (pattern-glob "~/Documents/Python" "*.py"))