diff options
| author | bd <bdunahu@operationnull.com> | 2024-11-02 11:12:47 -0400 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2024-11-02 11:12:47 -0400 |
| commit | 0e971a7d8be33c208394d9b195985794284317a7 (patch) | |
| tree | 7e315b71d0238c694c71f98935be454db697aa44 /.config/emacs/modules/bd--notes.el | |
| parent | 8d9ee9214ef7af86a1ab494c9e2276fe4e2db373 (diff) | |
read desc: eww visual fill, turn on recentf, custom scratch buffer...
eww visual fill, shackle default use same window, fix broken compilation mode output, turn on recentf, custom scratch buffer creation
Diffstat (limited to '.config/emacs/modules/bd--notes.el')
| -rw-r--r-- | .config/emacs/modules/bd--notes.el | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/.config/emacs/modules/bd--notes.el b/.config/emacs/modules/bd--notes.el index fafc56a..b83b71e 100644 --- a/.config/emacs/modules/bd--notes.el +++ b/.config/emacs/modules/bd--notes.el @@ -3,6 +3,24 @@ ;;; Code: +(defun bd/send-to-scratch () + "Creates/switches to the scratch for `major-mode', +then pastes the active region." + (interactive) + (let* ((mode major-mode) + (name (format "*Scratch for %s*" mode)) + (contents (when (region-active-p) + (buffer-substring-no-properties + (region-beginning) (region-end)))) + (buf (get-buffer name))) + (pop-to-buffer + (with-current-buffer (get-buffer-create name) + (funcall mode) + (when contents + (insert (format "\n\n%s" contents))) + (current-buffer))))) +(keymap-global-set "C-c s" #'bd/send-to-scratch) + (use-package denote :hook ((dired-mode . denote-dired-mode-in-directories)) @@ -13,7 +31,7 @@ :config (require 'denote-journal-extras) - ;;;; skribe +;;;; skribe (defvar bd/denote-skribe-front-matter "(post :title \"%s\" |