;; Author: Stephen Eglen <stephen@cns.ed.ac.uk>
;; Maintainer: Stephen Eglen <stephen@cns.ed.ac.uk>
;; Keywords: extensions
+;; location: http://www.cns.ed.ac.uk/people/stephen/emacs/
;; This file is part of GNU Emacs.
;; only shows a certain number of lines -- see the documentation for
;; `iswitchb-minibuffer-setup-hook'.
-
;; Changing the list of buffers
;; By default, the list of current buffers is most recent first,
;; this is too harsh, let me know. Colouring of the matching buffer
;; name was suggested by Carsten Dominik (dominik@strw.leidenuniv.nl)
-
;; Replacement for read-buffer
;; iswitchb-read-buffer has been written to be a drop in replacement
;;; Code:
-
;; CL needed for cadr and last
-(require 'cl)
+(if (not (and (fboundp 'cadr)
+ (fboundp 'last)))
+ (require 'cl))
;; Set up the custom library.
;; taken from http://www.dina.kvl.dk/~abraham/custom/
;; These links are to be added in later versions of custom and
;; so are currently commented out.
:link '(emacs-commentary-link :tag "Commentary" "iswitchb.el")
- :link '(emacs-library-link :tag "Lisp File" "iswitchb.el")
-)
-
+ :link '(emacs-library-link :tag "Lisp File" "iswitchb.el"))
(defcustom iswitchb-case case-fold-search
"*Non-nil if searching of buffer names should ignore case."
:type '(repeat regexp)
:group 'iswitchb)
-
;;; Examples for setting the value of iswitchb-buffer-ignore
;(defun iswitchb-ignore-c-mode (name)
; "Ignore all c mode buffers -- example function for iswitchb."
(const always-frame))
:group 'iswitchb)
-
(defcustom iswitchb-regexp nil
"*Non-nil means that `iswitchb' will do regexp matching.
Value can be toggled within `iswitchb' using `iswitchb-toggle-regexp'."
:type 'boolean
:group 'iswitchb)
-
(defcustom iswitchb-newbuffer t
"*Non-nil means create new buffer if no buffer matches substring.
See also `iswitchb-prompt-newbuffer'."
:type 'boolean
:group 'iswitchb)
-
(defcustom iswitchb-prompt-newbuffer t
"*Non-nil means prompt user to confirm before creating new buffer.
See also `iswitchb-newbuffer'."
:type 'boolean
:group 'iswitchb)
-
(defcustom iswitchb-define-mode-map-hook nil
"*Hook to define keys in `iswitchb-mode-map' for extra keybindings."
:type 'hook
:group 'iswitchb)
-
-
(defcustom iswitchb-use-fonts t
"*Non-nil means use font-lock fonts for showing first match."
:type 'boolean
:group 'iswitchb)
-
(defcustom iswitchb-make-buflist-hook nil
"*Hook to run when list of matching buffers is created."
:type 'hook
;; Do we need the variable iswitchb-use-mycompletion?
-
;;; Internal Variables
(defvar iswitchb-method nil
Copied from `icomplete-eoinput'.")
(make-variable-buffer-local 'iswitchb-eoinput)
-
(defvar iswitchb-buflist nil
"Stores the current list of buffers that will be searched through.
The list is ordered, so that the most recent buffers come first,
;;; FUNCTIONS
-
;;; ISWITCHB KEYMAP
(defun iswitchb-define-mode-map ()
"Set up the keymap for `iswitchb-buffer'."
(define-key map "\C-k" 'iswitchb-kill-buffer)
(define-key map "\C-m" 'iswitchb-exit-minibuffer)
(setq iswitchb-mode-map map)
- (run-hooks 'iswitchb-define-mode-map-hook)
- ))
+ (run-hooks 'iswitchb-define-mode-map-hook)))
-
-
;;; MAIN FUNCTION
(defun iswitchb ()
"Switch to buffer matching a substring.
(setq buf (iswitchb-read-buffer prompt))
-
;;(message "chosen text %s" iswitchb-final-text)
;; Choose the buffer name: either the text typed in, or the head
;; of the list of matches
(iswitchb-visit-buffer buf)
;; else buffer doesn't exist
(iswitchb-possible-new-buffer buf)))
- ))
-
- ))
-
-
+ ))))
(defun iswitchb-read-buffer (prompt &optional default require-match)
"Replacement for the built-in `read-buffer'.
(let
((minibuffer-local-completion-map iswitchb-mode-map)
(iswitchb-prepost-hooks t)
- (iswitchb-require-match require-match)
- )
+ (iswitchb-require-match require-match))
;; prompt the user for the buffer name
(setq iswitchb-final-text (completing-read
prompt ;the prompt
buf-sel))
-
(defun iswitchb-existing-buffer-p ()
"Return non-nil if there is a matching buffer."
(not (null iswitchb-matches)))
(if (setq val (iswitchb-find-common-substring
iswitchb-matches iswitchb-text))
(setq iswitchb-common-match-string val)))
- val
- ))
-
+ val))
(defun iswitchb-complete ()
"Try and complete the current pattern amongst the buffer names."
(interactive)
(let (res)
(cond ((not iswitchb-matches)
- (iswitchb-completion-help)
- )
+ (iswitchb-completion-help))
((= 1 (length iswitchb-matches))
;; only one choice, so select it.
(insert res))
;; else nothing to complete
(iswitchb-completion-help)
- )
- )
- )))
-
-
+ )))))
;;; TOGGLE FUNCTIONS
(interactive)
(setq iswitchb-case (not iswitchb-case))
;; ask for list to be regenerated.
- (setq iswitchb-rescan t)
- )
+ (setq iswitchb-rescan t))
(defun iswitchb-toggle-regexp ()
"Toggle the value of `iswitchb-regexp'."
(interactive)
(setq iswitchb-regexp (not iswitchb-regexp))
;; ask for list to be regenerated.
- (setq iswitchb-rescan t)
- )
-
+ (setq iswitchb-rescan t))
(defun iswitchb-toggle-ignore ()
"Toggle ignoring buffers specified with `iswitchb-buffer-ignore'."
(if iswitchb-buffer-ignore
(progn
(setq iswitchb-buffer-ignore-orig iswitchb-buffer-ignore)
- (setq iswitchb-buffer-ignore nil)
- )
+ (setq iswitchb-buffer-ignore nil))
;; else
- (setq iswitchb-buffer-ignore iswitchb-buffer-ignore-orig)
- )
+ (setq iswitchb-buffer-ignore iswitchb-buffer-ignore-orig))
(iswitchb-make-buflist iswitchb-default)
;; ask for list to be regenerated.
- (setq iswitchb-rescan t)
- )
+ (setq iswitchb-rescan t))
(defun iswitchb-exit-minibuffer ()
"Exit minibuffer, but make sure we have a match if one is needed."
(interactive)
(if (or (not iswitchb-require-match)
(iswitchb-existing-buffer-p))
- (throw 'exit nil)
- ))
+ (throw 'exit nil)))
(defun iswitchb-select-buffer-text ()
"Select the buffer named by the prompt.
(setq iswitchb-exit 'takeprompt)
(exit-minibuffer))
-
-
(defun iswitchb-find-file ()
"Drop into find-file from buffer switching."
(interactive)
(interactive)
(let ((next (cadr iswitchb-matches)))
(setq iswitchb-buflist (iswitchb-chop iswitchb-buflist next))
- (setq iswitchb-rescan t)
- ))
+ (setq iswitchb-rescan t)))
(defun iswitchb-prev-match ()
"Put last element of `iswitchb-matches' at the front of the list."
(interactive)
(let ((prev (car (last iswitchb-matches))))
(setq iswitchb-buflist (iswitchb-chop iswitchb-buflist prev))
- (setq iswitchb-rescan t)
- ))
-
-
-
+ (setq iswitchb-rescan t)))
(defun iswitchb-chop (list elem)
"Remove all elements before ELEM and put them at the end of LIST."
(setq sofar (cons next sofar)))))
ret))
-
-
-
;;; CREATE LIST OF ALL CURRENT BUFFERS
-
(defun iswitchb-make-buflist (default)
"Set `iswitchb-buflist' to the current list of buffers.
Currently visible buffers are put at the end of the list.
(if default
(progn
(setq buflist (delete default buflist))
- (setq buflist (cons default buflist))
- ))
+ (setq buflist (cons default buflist))))
buflist)))
(defun iswitchb-to-end (lst)
lst)
(nconc buflist lst))
-
-
(defun iswitchb-get-buffers-in-frames (&optional current)
"Return the list of buffers that are visible in the current frame.
If optional argument `current' is given, restrict searching to the
iswitchb-all-frames))
iswitchb-bufs-in-frame))
-
(defun iswitchb-get-bufname (win)
"Used by `iswitchb-get-buffers-in-frames' to walk through all windows."
(let ((buf (buffer-name (window-buffer win))))
(setq iswitchb-bufs-in-frame
(cons buf iswitchb-bufs-in-frame)))))
-
;;; FIND MATCHING BUFFERS
-
(defun iswitchb-set-matches ()
"Set `iswitchb-matches' to the list of buffers matching prompt."
(if iswitchb-rescan
(setq iswitchb-matches
- (let* ((buflist iswitchb-buflist)
- )
+ (let* ((buflist iswitchb-buflist))
(iswitchb-get-matched-buffers iswitchb-text iswitchb-regexp
buflist)))))
(list (reverse buffer-list))
(do-string (stringp (car list)))
name
- ret
- )
+ ret)
(mapcar
(lambda (x)
(and (null string-format)
(string-match (regexp-quote regexp) name)))
- (not (iswitchb-ignore-buffername-p name))
- )
+ (not (iswitchb-ignore-buffername-p name)))
(setq ret (cons name ret))
)))
list)
- ret
- ))
-
-
-
+ ret))
(defun iswitchb-ignore-buffername-p (bufname)
"Return t if the buffer BUFNAME should be ignored."
(let ((data (match-data))
(re-list iswitchb-buffer-ignore)
ignorep
- nextstr
- )
+ nextstr)
(while re-list
(setq nextstr (car re-list))
(cond
(if (funcall nextstr bufname)
(progn
(setq ignorep t)
- (setq re-list nil))
- ))
- )
+ (setq re-list nil)))))
(setq re-list (cdr re-list)))
(set-match-data data)
;; return the result
- ignorep)
- )
+ ignorep))
(defun iswitchb-word-matching-substring (word)
"Return part of WORD before 1st match to `iswitchb-change-word-sub'.
"Return common string following SUBS in each element of LIS."
(let (res
alist
- iswitchb-change-word-sub
- )
+ iswitchb-change-word-sub)
(setq iswitchb-change-word-sub
(if iswitchb-regexp
subs
;; try-completion returns t if there is an exact match.
(let ((completion-ignore-case iswitchb-case))
- (try-completion subs alist)
- )))
-
+ (try-completion subs alist))))
(defun iswitchb-makealist (res)
"Return dotted pair (RES . 1)."
(setq prev las
las (cdr las)))
(setcdr prev nil)
- (cons (car las) lis))
- ))
-
+ (cons (car las) lis))))
(defun iswitchb-completion-help ()
"Show possible completions in a *Buffer Completions* buffer."
(if (pos-visible-in-window-p (point-max) win)
(set-window-start win (point-min))
(scroll-other-window))
- (set-buffer buf)
- )
-
+ (set-buffer buf))
(with-output-to-temp-buffer temp-buf
(if iswitchb-xemacs
iswitchb-buflist))
)))))
-
-
;;; KILL CURRENT BUFFER
(defun iswitchb-kill-buffer ()
;; else buffer was killed so remove name from list.
(setq iswitchb-buflist (delq buf iswitchb-buflist)))))))
-
;;; VISIT CHOSEN BUFFER
(defun iswitchb-visit-buffer (buffer)
"Visit buffer named BUFFER according to `iswitchb-method'."
(if (not iswitchb-xemacs)
;; reposition mouse to make frame active. not needed in XEmacs
;; This line came from the other-frame defun in Emacs.
- (set-mouse-position (selected-frame) (1- (frame-width)) 0))
- )
+ (set-mouse-position (selected-frame) (1- (frame-width)) 0)))
(t
;; No buffer in other frames...
(switch-to-buffer buffer)
)))
-
-
((eq iswitchb-method 'otherwindow)
(switch-to-buffer-other-window buffer))
(switch-to-buffer-other-frame buffer)
(if (not iswitchb-xemacs)
(set-mouse-position (selected-frame) (1- (frame-width)) 0))
- )
- ) )))
+ )))))
(defun iswitchb-possible-new-buffer (buf)
"Possibly create and visit a new buffer called BUF."
(set-buffer-major-mode newbufcreated))
(iswitchb-visit-buffer newbufcreated))
;; else wont create new buffer
- (message (format "no buffer matching `%s'" buf))
- )))
+ (message (format "no buffer matching `%s'" buf)))))
(defun iswitchb-window-buffer-p (buffer)
"Return window pointer if BUFFER is visible in another frame.
(global-set-key (read-kbd-macro "C-x 4 C-o") 'iswitchb-display-buffer)
(global-set-key (read-kbd-macro "C-x 5 b") 'iswitchb-buffer-other-frame))
-
;;;###autoload
(defun iswitchb-buffer ()
"Switch to another buffer.
(setq iswitchb-method iswitchb-default-method)
(iswitchb))
-
;;;###autoload
(defun iswitchb-buffer-other-window ()
"Switch to another buffer and show it in another window.
(setq iswitchb-method 'otherwindow)
(iswitchb))
-
-
;;;###autoload
(defun iswitchb-display-buffer ()
"Display a buffer in another window but don't select it.
(setq iswitchb-method 'display)
(iswitchb))
-
-
;;;###autoload
(defun iswitchb-buffer-other-frame ()
"Switch to another buffer and show it in another frame.
(iswitchb-exhibit)
(goto-char (point-min)))))
-
;; add this hook for XEmacs only.
(if iswitchb-xemacs
(add-hook 'iswitchb-minibuffer-setup-hook
'iswitchb-init-XEmacs-trick))
-
;;; XEmacs / backspace key
;; For some reason, if the backspace key is pressed in XEmacs, the
;; line gets confused, so I've added a simple key definition to make
(defun iswitchb-xemacs-backspacekey ()
"Bind backspace to `backward-delete-char'."
(define-key iswitchb-mode-map '[backspace] 'backward-delete-char)
- (define-key iswitchb-mode-map '[(meta backspace)] 'backward-kill-word)
- )
-
+ (define-key iswitchb-mode-map '[(meta backspace)] 'backward-kill-word))
(if iswitchb-xemacs
(add-hook 'iswitchb-define-mode-map-hook
'iswitchb-xemacs-backspacekey))
-
-
;;; ICOMPLETE TYPE CODE
(defun iswitchb-exhibit ()
(not minibuffer-completion-confirm)))
))))
-
-
(defun iswitchb-completions
(name candidates predicate require-match)
"Return the string that is displayed after the user's text.
;"-prospects" - more than one candidate
(open-bracket-prospects "{")
(close-bracket-prospects "}")
- first
- )
+ first)
(if (and iswitchb-use-fonts comps)
(progn
'font-lock-comment-face
'font-lock-function-name-face)
first)
- (setq comps (cons first (cdr comps)))
- ))
+ (setq comps (cons first (cdr comps)))))
(cond ((null comps) (format " %sNo match%s"
open-bracket-determined
(car comps)
close-bracket-determined)
"")
- (if (not iswitchb-use-fonts) " [Matched]")
- ))
+ (if (not iswitchb-use-fonts) " [Matched]")))
(t ;multiple matches
(let* (
;;(most (try-completion name candidates predicate))
(concat open-bracket-determined
(substring iswitchb-common-match-string
(length name))
- close-bracket-determined)
- )
+ close-bracket-determined))
;; end of partial matches...
;; think this bit can be ignored.
(if most-is-exact
(concat "," alternatives)
alternatives)
- close-bracket-prospects)))
- )))
+ close-bracket-prospects))))))
(defun iswitchb-minibuffer-setup ()
"Set up minibuffer for `iswitchb-buffer'.
'iswitchb-post-command
nil t)
- (run-hooks 'iswitchb-minibuffer-setup-hook)
- )
- ))
-
+ (run-hooks 'iswitchb-minibuffer-setup-hook))))
(defun iswitchb-pre-command ()
"Run before command in `iswitchb-buffer'."
(iswitchb-tidy))
-
(defun iswitchb-post-command ()
"Run after command in `iswitchb-buffer'."
- (iswitchb-exhibit)
- )
-
-
+ (iswitchb-exhibit))
(defun iswitchb-tidy ()
"Remove completions display, if any, prior to new user input.
(make-local-variable 'iswitchb-eoinput)
(setq iswitchb-eoinput 1)))
-
(defun iswitchb-entryfn-p ()
"Return non-nil if `this-command' shows we are using `iswitchb-buffer'."
(or (boundp 'iswitchb-prepost-hooks)
;; iswitchb-buffer-other-window))))
))
-
-
-
-
(defun iswitchb-summaries-to-end ()
"Move the summaries to the end of the list.
This is an example function which can be hooked on to
(string-match "Summary" x)
(string-match "output\\*$" x))
x))
- buflist)
- )))
-
+ buflist))))
(iswitchb-to-end summaries)))
-
-
;;; HOOKS
(add-hook 'minibuffer-setup-hook 'iswitchb-minibuffer-setup)
projects / emacs.git / commitdiff