joestar

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | LICENSE

commit a1cd0605273fd19b157ac70c35c06126179a54a2
parent 3f4cfd1db261b24f1309e7b26bfac26d621bdadf
Author: Ryan Jeffrey <pwishie@gmail.com>
Date:   Tue, 28 May 2019 19:46:16 -0700

added funcs, buffer switching

Diffstat:
Mjoestar.el | 16++++++++++++++++
1 file changed, 16 insertions(+), 0 deletions(-)

diff --git a/joestar.el b/joestar.el @@ -134,6 +134,19 @@ (interactive) (call-interactively 'undo-tree-undo)) +(defun joe-reloadall () + "Revert all unmodified buffers." + (interactive)) + +(defun joe-scratch (name) + "Push a scratch buffer NAME into current window." + (interactive "sName of buffer to edit: ") + (generate-new-buffer (generate-new-buffer-name name)) + (switch-to-buffer name)) + +(defalias 'joe-nbuf 'next-buffer) +(defalias 'joe-pbuf 'previous-buffer) +(defalias 'joe-reload 'revert-buffer) ;;; setting joestar's wordstar-like keybindings (defvar joestar-mode-map @@ -457,6 +470,9 @@ (goto-char joe-nextmark))))) (define-key joe-map (kbd "C-k =") (kbd "C-k C-=")) ;; buffer + (define-key joe-map (kbd "<escape> u") 'joe-nbuf) + (define-key joe-map (kbd "<escape> v") 'joe-pbuf) + joe-map) "The joestar-mode keymaps.")