appkido.el

(defun appkido-lookup (word)
  "search appkido"
  (interactive
   (let* ((cur (substring-no-properties (or (thing-at-point 'word) "")))
          (val (read-string (if (string-match "^[0-9A-Za-z_]+$" cur)
                                (format "AppKido Lookup (default %s): " cur)
                              "AppKido Lookup: ") nil nil cur)))
     (list val)))
  (do-applescript (format "tell application \"AppKiDo-for-iPhone\"
                       activate
                       search \"%s\"
                   end tell" word)))

(provide 'appkido)