From c9b8bc6437badf95361c3c0565795c60c0108ce0 Mon Sep 17 00:00:00 2001 From: Gia Thanh Vuong Date: Tue, 20 Aug 2019 16:49:05 -0600 Subject: wip --- TODOs.org | 52 +++++++++++++++++++++++++++++++++++++++++++++++++--- 1 file changed, 49 insertions(+), 3 deletions(-) (limited to 'TODOs.org') diff --git a/TODOs.org b/TODOs.org index ec73f77..fba0745 100644 --- a/TODOs.org +++ b/TODOs.org @@ -20,7 +20,7 @@ child * TODO show number of child comments https://emacs.stackexchange.com/questions/10245/counting-sub-headings-in-org-mode-using-elisp or recursive on dom will be just fine -* DONE run eslip on org link +* TODO run eslip on org link #+begin_example org-mode [[elisp:(find-function 'describe-function)]] @@ -30,9 +30,55 @@ or recursive on dom will be just fine ;; (setq-local org-confirm-elisp-link-function nil) + user org-add-link-type to avoid confirm message + + (org-add-link-type + "grep" 'endless/follow-grep-link) + +(defun endless/follow-grep-link (regexp) + "Run `rgrep' with REGEXP as argument." + (grep-compute-defaults) + (rgrep regexp "*" (expand-file-name "./"))) +https://endlessparentheses.com/use-org-mode-links-for-absolutely-anything.html + +use this one + +(org-link-set-parameters TYPE &rest PARAMETERS) + +Set link TYPE properties to PARAMETERS. + PARAMETERS should be :key val pairs. +how can i register this handler? +autoload? + +just a private flag on running + * DONE comment page show main link and intro text * TODO display page takes page number * TODO reload page * TODO frontpage has next page link -* remove * in text -find and replace raw htlm '< *' with '< -' +* DONE remove * in text +CLOSED: [2019-08-20 Tue 13:39] +find and replace raw htlm '>*' with '>-' +* add eww link +* INPROGRESS long links are cut off +(get-text-property (point) 'shr-url) +(get-text-property (point) 'htmlize-link) +(text-properties-at (point)) + +(font-lock-multiline t htmlize-link (:uri "elisp:(hnreader-comment 20751164)") +help-echo "LINK: elisp:(hnreader-comment 20751164)" keymap (keymap (follow-link +. mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) +mouse-face highlight face org-link wrap-prefix #(" " 0 2 (face org-indent)) +line-prefix #(" " 0 2 (face org-indent)) fontified t) + +https://emacs.stackexchange.com/questions/16909/how-can-i-get-all-file-links-in-one-org-mode-file +Assuming the current buffer is an org-mode buffer, the following code collects paths of file links in the current buffer. + +#+begin_example elisp +(org-element-map (org-element-parse-buffer) 'link + (lambda (link) + (when (string= (org-element-property :type link) "file") + (org-element-property :path link)))) +#+end_example + +In an org buffer, (org-element-parse-buffer) returns the parse tree of the current buffer. And you can map over it with org-element-map. -- cgit v1.2.3