   (message "Wait a moment.....")
   (shell-command
    (hateda-mkString
-    `(,hateda-exec-path "draft" "update" ,(hateda-get-id-of-current-buffer) ,hateda-draft-tmp-file)
+    `(,hateda-executable "draft" "update" ,(hateda-get-id-of-current-buffer) ,hateda-draft-tmp-file)
     " ")))
 
 (defun hateda-string-to-draft-entry (string)

    (mkdir hateda-draft-dir))
  (with-current-buffer (find-file (hateda-draft-make-file-name id title))
    (erase-buffer)
    (shell-command (hateda-mkString `(,hateda-exec-path "draft" "get" ,id) " ") (current-buffer))))

(defun anything-hateda-draft-open-file (description)
  (message "Wait a moment....")

  (interactive)
  (write-region (point-min) (point-max) hateda-draft-tmp-file nil nil)
  (message "Wait a moment.....")
  (shell-command (hateda-mkString `(,hateda-executable "draft" "add" ,hateda-draft-tmp-file) " ")))

(defun hateda-mkString (lst &optional spliter)
  (reduce (lambda (m o) (concat m (or spliter "") o)) lst))
