+
+;; generally, use m-x iankmod-start. c-u to run on local testing
+;; instance. Alternatively, run get-comments with whatever args,
+;; manually open /tmp/hcomments, then run (iankmod).
+
+(defun iankmod-start (arg)
+ (interactive "P")
+ (setq iankmod-last-arg (if (equal arg '(4)) " -l" ""))
+ (let ((cmd (concat "/a/h/get-comments" iankmod-last-arg)))
+ (shell-command cmd "*messages*")
+ (find-file "/tmp/hcomments")
+ (iankmod 1)))
+