diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/+org.el | 47 | ||||
-rw-r--r-- | lisp/acdw.el | 2 |
2 files changed, 46 insertions, 3 deletions
diff --git a/lisp/+org.el b/lisp/+org.el index 11a816f..57a4a16 100644 --- a/lisp/+org.el +++ b/lisp/+org.el | |||
@@ -451,10 +451,53 @@ the deletion might narrow the column." | |||
451 | (defun +org-open-html (file-path link-string) | 451 | (defun +org-open-html (file-path link-string) |
452 | "Open FILE-PATH with `browse-url'. | 452 | "Open FILE-PATH with `browse-url'. |
453 | This function is intended to use with `org-file-apps'. See the | 453 | This function is intended to use with `org-file-apps'. See the |
454 | documentation of that function for a description of the two | 454 | documentation of that function for a description of the two |
455 | arguments here, FILE-PATH and LINK-STRING." | 455 | arguments here, FILE-PATH and LINK-STRING." |
456 | (message "Opening %s (%s)..." file-path link-string) | 456 | (message "Opening %s (%s)..." file-path link-string) |
457 | (browse-url file-path)) | 457 | (browse-url file-path)) |
458 | 458 | ||
459 | (defun +org-insert-horizontal-rule (prefix) | ||
460 | "Insert a horizontal rule (-----) after the current line. | ||
461 | With PREFIX, insert before the current line." | ||
462 | (interactive "P") | ||
463 | (if prefix | ||
464 | (move-beginning-of-line nil) | ||
465 | (move-end-of-line nil) | ||
466 | (forward-line 1)) | ||
467 | (insert "-----\n")) | ||
468 | |||
469 | ;;; Make code snippets in org-mode easier to type | ||
470 | ;; http://mbork.pl/2022-01-17_Making_code_snippets_in_Org-mode_easier_to_type | ||
471 | |||
472 | (defun +org-insert-backtick () | ||
473 | "Insert a backtick using `org-self-insert-command'." | ||
474 | (interactive) | ||
475 | (setq last-command-event ?`) | ||
476 | (call-interactively #'org-self-insert-command)) | ||
477 | |||
478 | (defvar-local +org-insert-tilde-language nil | ||
479 | "Default language name in the current Org file. | ||
480 | If nil, `org-insert-tilde' after 2 tildes inserts an \"example\" | ||
481 | block. If a string, it inserts a \"src\" block with the given | ||
482 | language name.") | ||
483 | |||
484 | (defun +org-insert-tilde () | ||
485 | "Insert a tilde using `org-self-insert-command'." | ||
486 | (interactive) | ||
487 | (if (string= (buffer-substring-no-properties (- (point) 3) (point)) | ||
488 | "\n~~") | ||
489 | (progn (delete-char -2) | ||
490 | (if +org-insert-tilde-language | ||
491 | (insert (format "#+begin_src %s\n#+end_src" | ||
492 | +org-insert-tilde-language)) | ||
493 | (insert "#+begin_example\n#+end_example")) | ||
494 | (forward-line -1) | ||
495 | (if (string= +org-insert-tilde-language "") | ||
496 | (move-end-of-line nil) | ||
497 | ;;(org-edit-special) ; Useful really only with splits. | ||
498 | )) | ||
499 | (setq last-command-event ?~) | ||
500 | (call-interactively #'org-self-insert-command))) | ||
501 | |||
459 | (provide '+org) | 502 | (provide '+org) |
460 | ;;; +org.el ends here | 503 | ;;; +org.el ends here |
diff --git a/lisp/acdw.el b/lisp/acdw.el index a96e6a7..34d1bc4 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el | |||
@@ -128,7 +128,7 @@ I keep forgetting how they differ." | |||
128 | 128 | ||
129 | (defmacro +defvar (var value &rest _) | 129 | (defmacro +defvar (var value &rest _) |
130 | "Quick way to `setq' a variable from a `defvar' form." | 130 | "Quick way to `setq' a variable from a `defvar' form." |
131 | (declare (doc-string 3)) | 131 | (declare (doc-string 3) (indent 2)) |
132 | `(setq ,var ,value)) | 132 | `(setq ,var ,value)) |
133 | 133 | ||
134 | (defmacro +with-message (message &rest body) | 134 | (defmacro +with-message (message &rest body) |