From 8db76ba682182b7c0e597bcfdc3fde65dcb599c3 Mon Sep 17 00:00:00 2001 From: Katharina Fey Date: Tue, 9 Nov 2021 14:49:59 +0100 Subject: [PATCH] libkookie: add org-mode insert source block function --- infra/libkookie/overlays/kookie/emacs/org/default.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/infra/libkookie/overlays/kookie/emacs/org/default.el b/infra/libkookie/overlays/kookie/emacs/org/default.el index 800225834fa..c1771ec3c78 100644 --- a/infra/libkookie/overlays/kookie/emacs/org/default.el +++ b/infra/libkookie/overlays/kookie/emacs/org/default.el @@ -28,9 +28,12 @@ )) (org-open-at-point))) -(defun org-insert-block () - "Insert a matching set of blocks statements" - (interactive)) +(defun org-insert-source-block () + "Insert a source code block" + (interactive) + (insert (concat "#+BEGIN_SRC " (read-string "Enter the source language: "))) + (insert "\n\n#+END_SRC") (indent-according-to-mode) + (previous-line 1) (indent-according-to-mode)) ;;; Org mode key bindings replicated here to make it easier for me (define-key org-mode-map "\C-c\C-o" 'org-open-at-point-in-current-window)