chenlevy /.emcas/fte.el

Make emacs feel like FTE http://fte.sourceforge.net/
;;; configure alt+left and alt+right to lower or raise buffers
(defun raise-buffer ()
  (interactive)
  (let ((blist (nreverse (buffer-list))))
    (while (string-match "\` " (buffer-name (car blist)))
      (setq blist (cdr blist)))
    (if blist
        (switch-to-buffer (car blist)))))

(define-key global-map [(meta left)] `bury-buffer)
(define-key global-map [(meta right)] `raise-buffer)

;;; alt+m for buffer menu
(define-key global-map [(meta m)] `buffer-menu)

;;; alt+up and alt+down to move between windows (splited vertically)
(define-key global-map [(meta up)] `windmove-up)
(define-key global-map [(meta down)] `windmove-down)

;;; fte style compile
(define-key global-map [(f9)] `compile)
(setq compilation-scroll-output t)
» See more dotfiles like .emcas/fte.el
» See more dotfiles from chenlevy