 ;; 実行可能なコマンドを返す
 (defun kui/find-if-executable (seq)
   "Find and Return first executable command in SEQ."
-  ;; (find-if (lambda (cmd) (executable-find cmd)) seq))
   (find-if 'executable-find seq))
 
 (defun kui/find-buffer-if (func)

  "Install `package' and require FRETURE. Execute BODY, If FEATURE was found.

Examples:
	(with-pkg 'git-gutter
	  (global-git-gutter-mode t))


Return nil if not found BNAME buffer."
  (kui/find-buffer-if
   (lambda (b) (string-equal bname (buffer-name b)))))

(defun kui/find-buffer-by-name-regexp (bname-regexp)
  "Return buffer named a name matched BNAME-REGEXP.
