contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[org] add support for XMPP links

This commit is contained in:
contrapunctus 2021-07-29 23:31:24 +05:30
parent a35e24bae3
commit 83c2e854d5
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
init.org
View File

@ -2442,7 +2442,7 @@ SLIME opens CLHS links in Firefox, but I'd rather open them in Tor Browser; Tor
'("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm"
"xpm" "pbm" "pgm" "ppm" "webp") t)))))
;; https://lists.gnu.org/archive/html/emacs-orgmode/2018-02/msg00082.html
(defun org-link-gemini-export-link (link desc format)
(defun my-export-gemini-link (link desc format)
"Create export version of LINK and DESC to FORMAT."
(let ((link (concat "gemini:" link)))
(cond
@ -2453,8 +2453,8 @@ SLIME opens CLHS links in Firefox, but I'd rather open them in Tor Browser; Tor
(format "\\url{%s}" link))
(t ;; `ascii', `md', `hugo', etc.
(format "[%s](%s)" desc link)))))
(org-link-set-parameters "gemini" :export #'org-link-gemini-export-link)
(add-hook 'org-insert-heading-hook #'contrapunctus-org-insert-timestamp)
(org-link-set-parameters "gemini" :export #'my-export-gemini-link)
(org-link-set-parameters "xmpp" :export #'my-export-gemini-link)
(defun contrapunctus-disable-nameless-key ()
(define-key nameless-mode-map (kbd "C-c C--") nil)))
@ -2587,6 +2587,7 @@ BUG - improper behaviour with checkboxes.
(defun contrapunctus-org-insert-timestamp ()
(save-excursion
(insert "\n" "<" (format-time-string "%FT%T%z") ">")))
(add-hook 'org-insert-heading-hook #'contrapunctus-org-insert-timestamp)
(use-package org-indent
:hook (org-mode . org-indent-mode))