Threading Macro for Emacs

(defmacro -> (x &rest forms)
  (if (null forms) x
    (let ((head (car forms)))
      (cond ((listp head)
       `(-> (,(car head) ,x ,@(cdr head)) ,@(cdr forms)))
      ((symbolp head)
       `(-> (,head ,x) ,@(cdr forms)))
      (t
       `(-> ,head ,@(cdr forms)))))))

(defmacro ->> (x &rest forms)
  (if (null forms) x
    (let ((head (car forms)))
      (cond ((listp head)
       `(->> (,@head ,x) ,@(cdr forms)))
      ((symbolp head)
       `(->> (,head ,x) ,@(cdr forms)))
      (t
       `(->> ,head ,@(cdr forms)))))))