cflowを実行する

cflowを実行する関数

(defvar *cflow-option-complete-list* nil
  "Cflow option complete list.")

(defvar *cflow-file-complete-list* nil
  "Cflow file complete list.")

(defun cflow()
  (interactive)
  (let (current file func)
    (setq current (get-clipboard-data))
    (let (input)
      (setq input (completing-read "File: (default *.c) " *cflow-file-complete-list*))
      (if (equal "" input) (setq file "*.c") (setq file input)))
    (let (input)
      (setq input (completing-read (concat "Function: (default " current ") ") *cflow-option-complete-list*))
      (if (equal "" input) (setq func current) (setq func input)))
    (execute-shell-command (concat "cflow -m " func " " file) nil "*CFLOW*")))