kemonine/emacs
Archived
1
0
Fork 0
Code Activity

cleanup scratch buffer 'stuff'

Browse source
This commit is contained in:
KemoNine 2024-03-07 12:58:46 -05:00
parent 8a4ac3d6ca
commit 5b0dd9c20f
2 changed files with 26 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
common/_global.el
View file

@ -611,6 +611,27 @@ Other buffer group by `centaur-tabs-get-group-name' with project name."
(global-set-key (kbd "C-c r w") 'persistent-scratch-save-to-file) (global-set-key (kbd "C-c r w") 'persistent-scratch-save-to-file)
(global-set-key (kbd "C-c r l") 'persistent-scratch-restore-from-file) (global-set-key (kbd "C-c r l") 'persistent-scratch-restore-from-file)
; scratch.el (multi-scratch / melpa) ; scratch buffers frame - use 'scratch and prompts to manage as needed
(global-set-key (kbd "C-c r s") #'scratch) ; C-u C-c s s for mode prompt (defun kmn/workspace-frame-scratch()
(interactive)
(let ((frame (make-frame)))
(select-frame-set-input-focus frame)
(delete-other-windows)
(scratch 'text-mode)
)
)
; scratch buffers frame, prompt for initial mode - use 'scratch and prompts to manage as needed
(defun kmn/workspace-frame-scratch-prompt()
(interactive)
(let ((frame (make-frame)))
(select-frame-set-input-focus frame)
(delete-other-windows)
(scratch (let ((current-prefix-arg t)) (scratch--buffer-querymode)))
)
)
; scratch.el (multi-scratch / melpa)
(global-set-key (kbd "C-c r s") #'kmn/workspace-frame-scratch)
(global-set-key (kbd "C-c r p") #'kmn/workspace-frame-scratch-prompt)

25
common/workspaces.el
View file

@ -214,28 +214,6 @@
(kmn/workspace-code-empty "~/src") (kmn/workspace-code-empty "~/src")
) )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; scratch buffers frame - use 'scratch and prompts to manage as needed
(defun kmn/workspace-frame-scratch()
(interactive)
(let ((frame (make-frame)))
(select-frame-set-input-focus frame)
(delete-other-windows)
(scratch 'text-mode)
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; scratch buffers frame, prompt for initial mode - use 'scratch and prompts to manage as needed
(defun kmn/workspace-frame-scratch-prompt()
(interactive)
(let ((frame (make-frame)))
(select-frame-set-input-focus frame)
(delete-other-windows)
(scratch (let ((current-prefix-arg t)) (scratch--buffer-querymode)))
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; warframe game workspace ; warframe game workspace
(defun kmn/workspace-game-warframe () (defun kmn/workspace-game-warframe ()
@ -261,3 +239,6 @@
(goto-char 0) (goto-char 0)
) )
) )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; _global.el for scratch workspace definitions