Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Dmitry Geurkov October 11, 2011
file 60 lines (47 sloc) 2.022 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
;;; buffcycle.el --- Buffer cycling for Emacs

;; Copyright (C) 2011 Dmitry Geurkov

;; Author: Dmitry Geurkov <dmitry_627@mail.ru>

;; This program 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.

;; This program 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 this program. If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:
;;; Simple Buffer cycling for Emacs between file buffers only using C-tab
;;; and killing buffer using C-q
;;; To use add
;;; (require 'buffcycle)
;;; to your .emacs

;; Buffer Cycling
(defvar *buffcycle-ibuffer-time* 0.5)
(defvar *buffcycle-last-time* (float-time))

(defun next-buffer-cycle()
  (interactive)
  (let ((cur-buffer (buffer-name))
(time-diff 0.0))
    (progn (setq time-diff (- (float-time) *buffcycle-last-time*))
(if (>= *buffcycle-ibuffer-time* time-diff)
(progn (setq *buffcycle-last-time* (float-time))
(ibuffer)))
(next-buffer)
(while (and (booleanp (buffer-file-name)) (not (string= (buffer-name) cur-buffer)))
(next-buffer))
(setq *buffcycle-last-time* (float-time))
(if (string= cur-buffer (buffer-name))
(ibuffer)))))

(defun kill-this-buffer-if-not-scratch()
  (interactive)
  (if (window-dedicated-p (selected-window))
      (message "this is dedicated window")
  (if (not (string= (buffer-name) "*scratch*"))
      (kill-this-buffer)
    (message "this is scratch unkillable"))))

;; Buffer Cycling keybindings
(global-set-key (kbd "<C-tab>") 'next-buffer-cycle)
(global-set-key (kbd "C-q") 'kill-this-buffer-if-not-scratch)

(provide 'buffcycle)

Something went wrong with that request. Please try again.