From: Nick Dokos <ndokos@gmail.com>
To: emacs-orgmode@gnu.org
Subject: Re: org-store-link without having to press Enter?
Date: Wed, 15 Jan 2014 12:22:52 -0500 [thread overview]
Message-ID: <877ga140sz.fsf@alphaville.bos.redhat.com> (raw)
In-Reply-To: 87lhyhry81.fsf@bzg.ath.cx
Bastien <bzg@gnu.org> writes:
> 1. collect various links through a session
> 2. store the last one for a new task
> 3. dump all links into some "read later" heading
>
> so I think this feature deserves to be in core.
>
> What do you and others think?
>
Much better!
>
> diff --git a/lisp/org.el b/lisp/org.el
> index ecd84e9..85e7ce5 100644
> --- a/lisp/org.el
> +++ b/lisp/org.el
> @@ -9930,14 +9930,29 @@ This command can be called in any mode to insert a link in Org-mode syntax."
> (org-load-modules-maybe)
> (org-run-like-in-org-mode 'org-insert-link))
>
> -(defun org-insert-all-links (&optional keep)
> - "Insert all links in `org-stored-links'."
> +(defun org-insert-all-links (&optional keep not-as-list-item)
> + "Insert all links in `org-stored-links'.
> +When `keep' is non-nil, do not delete then link from `org-stored-links'.
^^^the
> +When `not-as-list-item', insert the link directly, not as a list item."
> (interactive "P")
> - (let ((links (copy-sequence org-stored-links)) l)
> - (while (setq l (if keep (pop links) (pop org-stored-links)))
> - (insert "- ")
> + (let ((org-keep-stored-link-after-insertion (equal keep '(4)))
> + (links (copy-seq org-stored-links))
> + (cnt 1) l)
> + (if (null org-stored-links)
> + (message "No link to insert")
> + (while (and (or (listp keep) (>= keep cnt))
> + (setq l (if (listp keep)
> + (pop links)
> + (pop org-stored-links))))
> + (setq cnt (1+ cnt))
> + (unless not-as-list-item (insert "- "))
> (org-insert-link nil (car l) (or (cadr l) "<no description>"))
> - (insert "\n"))))
> + (unless not-as-list-item (insert "\n"))))))
> +
> +(defun org-insert-last-stored-link (arg)
> + "Insert the last link stored in `org-stored-links'."
Not sure whether it's worth adding a comment here: I had to experiment a bit to
convince myself that an interactive call without a prefix arg passed 1
as the value of arg. I found it unclear but that may be just my ignorance.
> + (interactive "p")
> + (org-insert-all-links arg t))
>
> (defun org-link-fontify-links-to-this-file ()
> "Fontify links to the current file in `org-stored-links'."
> @@ -19198,6 +19213,7 @@ boundaries."
> (org-defkey org-mode-map "\C-c\C-x\C-n" 'org-next-link)
> (org-defkey org-mode-map "\C-c\C-x\C-p" 'org-previous-link)
> (org-defkey org-mode-map "\C-c\C-l" 'org-insert-link)
> +(org-defkey org-mode-map "\C-c\M-l" 'org-insert-last-stored-link)
> (org-defkey org-mode-map "\C-c\C-\M-l" 'org-insert-all-links)
> (org-defkey org-mode-map "\C-c\C-o" 'org-open-at-point)
> (org-defkey org-mode-map "\C-c%" 'org-mark-ring-push)
Nick
next prev parent reply other threads:[~2014-01-15 17:23 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2014-01-14 21:05 org-store-link without having to press Enter? Sebastien Vauban
2014-01-14 22:55 ` Nick Dokos
2014-01-15 9:24 ` Sebastien Vauban
2014-01-15 16:44 ` Bastien
2014-01-15 17:22 ` Nick Dokos [this message]
2014-01-17 9:17 ` Bastien
2014-01-20 14:38 ` Bastien
2014-02-18 13:50 ` Sebastien Vauban
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=877ga140sz.fsf@alphaville.bos.redhat.com \
--to=ndokos@gmail.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).