bodhi-prompts.el

;;
;;
;;   Pierre-Yves Luyten
;;   2014
;;
;;
;;   This file is part of Bodhi.
;;
;;   Bodhi is free software: you can redistribute it and/or modify
;;   it under the terms of the GNU General Public License as published by
;;   the Free Software Foundation, either version 3 of the License, or
;;   (at your option) any later version.
;;
;;   Bodhi is distributed in the hope that it will be useful,
;;   but WITHOUT ANY WARRANTY; without even the implied warranty of
;;   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;   GNU General Public License for more details.
;;
;;   You should have received a copy of the GNU General Public License
;;   along with Bodhi.  If not, see <http://www.gnu.org/licenses/>.
;;
;;
;;

(defun bodhi-prompt-for-keymap (keym)
 (setq curb (current-buffer))
 (with-help-window (help-buffer)
   (prin1 (symbol-name keym))
   (princ "\n
Now i should lookup for available keys!!!")))


(defun bodhi-prompt (&optional title message)
 (interactive)
 (setq curb (current-buffer))
 (unless title (setq title "Enter:"))
 (setq buf (generate-new-buffer title))
 (view-buffer-other-window buf)
 (read-only-mode t)
 (funcall (and initial-major-mode))
 (setq message
   (concat "\n~~~ ☸ ~~~\n" ; U+2638
           "\n\n\n\n"
           message))
 (insert message)
 (setq x (read-char-exclusive))
 (quit-window)
 (kill-buffer buf)
 (switch-to-buffer curb)
 (setq x x))



(defun bodhi-ctl-x-prompt ()
  (interactive)
  (bodhi-prompt-for-keymap 'ctl-x-map)
  (set-temporary-overlay-map ctl-x-map))


(defun bodhi-global-prompt ()
  "Access global functions."
  (interactive)
  (setq c (bodhi-prompt "Global"
     "
     ==== GOTO ==========        === GLOBAL ===
     i: beginning of buffer      r: revert-buffer
     g: goto line                t: transpose-frame
     k: end of buffer
                                 n: evil-normal-state
     $: next buffer              v: evil-visual-line
     o: other window             V: evil-visual-block

     j: bookmark-jump            b: bookmark-set"))
  (cond
   ((eq c ?i)
    (beginning-of-buffer))
   ((eq c ?k)
    (end-of-buffer))
   ((eq c ?g)
    (call-interactively 'goto-line))
   ((eq c ?$)
    (next-buffer))
   ((eq c ?o)
    (other-window 1))
   ((eq c ?n)
    (evil-normal-state))
   ((eq c ?v)
    (evil-visual-line))
   ((eq c ?V)
    (evil-visual-block))
   ((eq c ?r)
    (revert-buffer))
   ((eq c ?b)
    (call-interactively 'bookmark-set))
   ((eq c ?j)
    (call-interactively 'bookmark-jump))
   ((eq c ?t)
    (transpose-frame))
   (t
    (keyboard-quit))))



(defun bodhi-find-prompt ()
  (interactive)
  (setq c (bodhi-prompt "Search"
   "
    f: isearch-forward             l: evil-find-char        v: visit-file
    j: isearch-backward                                     r: recent files

    i: isearch-backward-regexp
    k: isearch-forward-regexp
    b: regexp-builder"))
  (cond
   ((eq c ?f)
    (if mark-active
      (progn
	(call-interactively 'isearch-forward)
	(isearch-yank-string (buffer-substring-no-properties (region-beginning) (region-end))))
      (isearch-forward)))
   ((eq c ?j)
    (isearch-backward))
   ((eq c ?k)
    (if mark-active
      (progn
	(call-interactively 'isearch-forward-regexp)
	(isearch-yank-string (buffer-substring-no-properties (region-beginning) (region-end))))
    (isearch-forward-regexp)))
   ((eq c ?i)
    (if mark-active
      (progn
	(call-interactively 'isearch-backward-regexp)
	(isearch-yank-string (buffer-substring-no-properties (region-beginning) (region-end))))
    (isearch-backward-regexp)))
   ((eq c ?l)
    ;; TODO - don't use evil- in this file.
    (call-interactively 'evil-find-char))
   ((eq c ?b)
    (regexp-builder))
   ((eq c ?v)
    (call-interactively 'find-file))
   ((eq c ?r)
    (call-interactively 'recentf-open-files))
   (t
    (keyboard-quit))))



(defun bodhi-replace-do-prompt ()
  (interactive)
  (setq c (bodhi-prompt "Search"
   "
    r: query-replace-regexp    j: join-line (following)
    f: query-replace           J: join-line (previous)
    i: replace-string
    l: replace-regexp          u: UPCASE-WORD
                               d: downcase-word
    k: overwrite-mode          c: Capitalize-Word
    z: zap-to-char
                               x: rot13-region (if region)"))
  (cond
   ((eq c ?r)
    (call-interactively 'query-replace-regexp))

   ((eq c ?f)
    (call-interactively 'query-replace))
   ((eq c ?k)
    (call-interactively 'overwrite-mode))
   ((eq c ?i)
    (call-interactively 'replace-string))
   ((eq c ?l)
    (call-interactively 'replace-regexp))
   ((eq c ?j)
    (join-line 1))
   ((eq c ?J)
    (join-line))
   ((eq c ?z)
    (call-interactively 'zap-to-char))
   ((eq c ?u)
    (call-interactively 'upcase-word))
   ((eq c ?d)
    (call-interactively 'downcase-word))
   ((eq c ?c)
    (call-interactively 'capitalize-word))
   ((eq c ?x)
    (when mark-active
    (call-interactively 'rot13-region)))
   (t
    (keyboard-quit))))


(defun bodhi-replace-prompt ()
  (interactive)
  (if (or (eq overwrite-mode 'overwrite-mode-textual)
	  (eq overwrite-mode 'overwrite-mode-binary))
    (overwrite-mode -1)
    (bodhi-replace-do-prompt)))

(provide 'bodhi-prompts)