lisp/mb-depth.el

   1 ;;; mb-depth.el --- Indicate minibuffer-depth in prompt
   2 ;;
   3 ;; Copyright (C) 2006-2014 Free Software Foundation, Inc.
   4 ;;
   5 ;; Author: Miles Bader <miles@gnu.org>
   6 ;; Keywords: convenience
   7
   8 ;; This file is part of GNU Emacs.
   9
  10 ;; GNU Emacs is free software: you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation, either version 3 of the License, or
  13 ;; (at your option) any later version.
  14
  15 ;; GNU Emacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  22
  23 ;;; Commentary:
  24 ;;
  25 ;; Defines the minor mode `minibuffer-depth-indicate-mode'.
  26 ;;
  27 ;; When active, any recursive use of the minibuffer will show
  28 ;; the recursion depth in the minibuffer prompt.  This is only
  29 ;; useful if `enable-recursive-minibuffers' is non-nil.
  30
  31 ;;; Code:
  32
  33 (defvar minibuffer-depth-indicator-function nil
  34   "If non-nil, function to set up the minibuffer depth indicator.
  35 It is called with one argument, the minibuffer depth,
  36 and must return a string.")
  37
  38 ;; An overlay covering the prompt.  This is a buffer-local variable in
  39 ;; each affected minibuffer.
  40 ;;
  41 (defvar minibuffer-depth-overlay)
  42 (make-variable-buffer-local 'minibuffer-depth-overlay)
  43
  44 ;; This function goes on minibuffer-setup-hook
  45 (defun minibuffer-depth-setup ()
  46   "Set up a minibuffer for `minibuffer-depth-indicate-mode'.
  47 The prompt should already have been inserted."
  48   (when (> (minibuffer-depth) 1)
  49     (setq minibuffer-depth-overlay (make-overlay (point-min) (1+ (point-min))))
  50     (overlay-put minibuffer-depth-overlay 'before-string
  51                  (if minibuffer-depth-indicator-function
  52                      (funcall minibuffer-depth-indicator-function (minibuffer-depth))
  53                    (propertize (format "[%d]" (minibuffer-depth)) 'face 'highlight)))
  54     (overlay-put minibuffer-depth-overlay 'evaporate t)))
  55
  56 ;;;###autoload
  57 (define-minor-mode minibuffer-depth-indicate-mode
  58   "Toggle Minibuffer Depth Indication mode.
  59 With a prefix argument ARG, enable Minibuffer Depth Indication
  60 mode if ARG is positive, and disable it otherwise.  If called
  61 from Lisp, enable the mode if ARG is omitted or nil.
  62
  63 Minibuffer Depth Indication mode is a global minor mode.  When
  64 enabled, any recursive use of the minibuffer will show the
  65 recursion depth in the minibuffer prompt.  This is only useful if
  66 `enable-recursive-minibuffers' is non-nil."
  67   :global t
  68   :group 'minibuffer
  69   (if minibuffer-depth-indicate-mode
  70       ;; Enable the mode
  71       (add-hook 'minibuffer-setup-hook 'minibuffer-depth-setup)
  72     ;; Disable the mode
  73     (remove-hook 'minibuffer-setup-hook 'minibuffer-depth-setup)))
  74
  75 (provide 'mb-depth)
  76
  77 ;;; mb-depth.el ends here