Emacs meets tmux!

mugicha.el

;;; mugicha.el --- Emacs meets tmux!
;; Author: Koichi TANAKA <[email protected]>

;; This file is *NOT* part of GNU Emacs.

;;; Code:

(eval-when-compile (require 'cl))

(defgroup mugicha nil
  "emacs meets tmux"
  :group 'convenience
  :prefix "mugicha:")

(defcustom mugicha:popup-window-size 30
  "passing to split-window's -p option"
  :type 'number
  :group 'mugicha)

;;;###autoload
(defun* mugicha:popup-pane-bottom (&key (percent mugicha:popup-window-size)
                                        command)
  (interactive)
  (let ((cmd "tmux split-window -v"))
    (setq cmd (concat cmd (format " -p %d" percent)))
    (when command
      (setq cmd (concat cmd (format " '%s'" command))))
    (shell-command-to-string cmd)))

;;;###autoload
(defun mugicha:popup-pane-bottom-with-command (command)
  (interactive "sEnter command: ")
  (mugicha:popup-pane-bottom :command command))

(provide 'mugicha)
;;; mugicha.el ends here