diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-08-04 12:35:20 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-08-05 11:38:04 -0700 |
commit | 5594a8c95f50b1af70698f3539fa41dea45d66df (patch) | |
tree | 8d0a8af71e4fe636c235489b4910ea92754a1c4c | |
parent | 63224751bef26894e420e0e1a6c598663d8f6cbf (diff) | |
download | dotfiles-5594a8c95f50b1af70698f3539fa41dea45d66df.tar.gz |
add spw/org-title
-rw-r--r-- | .emacs.d/init.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 54265ecb..cff1a4d1 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -2472,6 +2472,15 @@ Called by '~/src/dotfiles/bin/emacsclient --spw/update-environment'." (user-error "Not at beginning of a sexp"))) (define-key spw/ctl-z-map "l" #'spw/copy-to-scratch) +(defun spw/org-title () + (interactive) + (goto-char (point-min)) + (if (search-forward "#+title: " nil t) + (move-end-of-line 1) + (unless (eolp) (open-line 1)) + (insert "#+title: "))) +(spw/feature-define-keys org "\C-z\C-t" spw/org-title) + ;;;; Terminal emulation |