     (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))))
+    (shell-command (hateda-mkString `(,hateda-executable "draft" "get" ,id) " ") (current-buffer))))
 
 (defun anything-hateda-draft-open-file (description)
   (message "Wait a moment....")

  (split-string lines "\n" ))

(defun hateda-draft-list ()
  (shell-command-to-string (hateda-mkString `(,hateda-exec-path "draft" "list") " ")))

(defun hateda-get-id-of-current-buffer ()
  (let ((filename (hateda-basename (buffer-file-name))))

  (message "Wait a moment.....")
  (shell-command
   (hateda-mkString
    `(,hateda-executable "draft" "update" ,(hateda-get-id-of-current-buffer) ,hateda-draft-tmp-file)
    " ")))

(defun hateda-string-to-draft-entry (string)
