typester (owner)

Revisions

gist: 163090 Download_button fork
public
Public Clone URL: git://gist.github.com/163090.git
Embed All Files: show embed
appkido.el #
raw 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

(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)