jessieh/dot-emacs
jessieh/dot-emacs
1
Fork 0
Code

Add keybind shortcut for opening scratch buffer

Browse Source
This commit is contained in:
Jessie Hildebrandt 2020-07-21 00:20:50 -04:00
parent b0f5dad099
commit 1904c712f1
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
init.el
View File

@ -48,16 +48,6 @@
;; Variables/Basic Config. ;; Variables/Basic Config.
;;==================== ;;====================
;; Define an interactive function for switching to the scratch buffer, (re)creating it if not present.
(defun switch-to-scratch-buffer ()
"Switch to the scratch buffer, (re)creating it if not present."
(interactive)
(if (get-buffer "*scratch*")
(switch-to-buffer "*scratch*")
(progn
(switch-to-buffer (get-buffer-create "*scratch*"))
(lisp-interaction-mode))))
;; Basic variable configuration. ;; Basic variable configuration.
(setq-default (setq-default
initial-scratch-message "" ; Remove initial message initial-scratch-message "" ; Remove initial message
@ -253,6 +243,7 @@
;; [ C-z ] -> (Overwritten) Undo (and don't suspend, thanks) ;; [ C-z ] -> (Overwritten) Undo (and don't suspend, thanks)
;; [ C-c o ] -> Focus on minibuffer window ;; [ C-c o ] -> Focus on minibuffer window
;; [ C-c r ] -> Revert buffer without confirmation ;; [ C-c r ] -> Revert buffer without confirmation
;; [ C-c s ] -> Open scratch buffer in the current window
;; [ C-c RET ] -> Open terminal in the current window ;; [ C-c RET ] -> Open terminal in the current window
;; [ C-x C-b ] -> (Overwritten) Invoke ibuffer ;; [ C-x C-b ] -> (Overwritten) Invoke ibuffer
;; [ M-n / M-p ] -> Scroll up/down by one line ;; [ M-n / M-p ] -> Scroll up/down by one line
@ -276,6 +267,15 @@
(when (yes-or-no-p "The contents of this buffer have been modified. Really revert? ") (when (yes-or-no-p "The contents of this buffer have been modified. Really revert? ")
(revert-buffer :ignore-auto :noconfirm)))) (revert-buffer :ignore-auto :noconfirm))))
(defun switch-to-scratch-buffer ()
"Switch to the scratch buffer, (re)creating it if not present."
(interactive)
(if (get-buffer "*scratch*")
(switch-to-buffer "*scratch*")
(progn
(switch-to-buffer (get-buffer-create "*scratch*"))
(lisp-interaction-mode))))
(defun open-default-shell () (defun open-default-shell ()
"Opens the default system shell in a terminal emulator." "Opens the default system shell in a terminal emulator."
(interactive) (interactive)