From 5594a8c95f50b1af70698f3539fa41dea45d66df Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 4 Aug 2022 12:35:20 -0700 Subject: add spw/org-title --- .emacs.d/init.el | 9 +++++++++ 1 file changed, 9 insertions(+) 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 -- cgit v1.2.3