Qt Assistant doc-search

gistfile1.txt

(defun my-qt-assistant ()
  "Assess documentation in an instance of Assistant."
  (interactive)
  (let* ((procname "qt-assistant")
         (search (my-word-at-point)))
    (if (not (process-status procname))
        (start-process
         procname procname
         "/Developer/Applications/Qt/Assistant.app/Contents/MacOS/Assistant"
         "-enableRemoteControl"))
    (process-send-string procname
                         (format "activateKeyword %s;\n" (word-at-point)))
    (do-applescript (format "tell application \"Assistant\"\n activate\nend tell\n"))))

(global-set-key (kbd "C-c q h") 'my-qt-assistant)