emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Bastien <bzg@gnu.org>
To: Sebastien Vauban
	<public-sva-news-D0wtAvR13HarG/iDocfnWg@plane.gmane.org>
Cc: public-emacs-orgmode-mXXj517/zsQ@plane.gmane.org
Subject: Re: org-store-link without having to press Enter?
Date: Wed, 15 Jan 2014 17:44:46 +0100	[thread overview]
Message-ID: <87lhyhry81.fsf@bzg.ath.cx> (raw)
In-Reply-To: <86eh49bnt3.fsf@somewhere.org> (Sebastien Vauban's message of "Wed, 15 Jan 2014 10:24:08 +0100")

[-- Attachment #1: Type: text/plain, Size: 788 bytes --]

Hi Sébastien,

please test the attached patch against master.

It creates a new command `org-insert-last-stored-link'
bound to `C-c M-l'.

You can use `C-2 C-c M-l' to insert the last two links.

So the set of commands around inserting links would be:

  C-c l       => store link (the suggested user binding)
C-c C-l       => insert a link
C-c C-M-l     => insert all links as a list
C-u C-c C-M-l => insert all links as a list and keep them
C-1 C-c C-M-l => insert the last stored link
      C-c M-l => short for the previous keybinding

I also find myself in this workflow:

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?


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: org-insert-all-links.patch --]
[-- Type: text/x-diff, Size: 2044 bytes --]

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'.
+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'."
+  (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)

[-- Attachment #3: Type: text/plain, Size: 14 bytes --]


-- 
 Bastien

  reply	other threads:[~2014-01-15 16:45 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 [this message]
2014-01-15 17:22       ` Nick Dokos
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=87lhyhry81.fsf@bzg.ath.cx \
    --to=bzg@gnu.org \
    --cc=public-emacs-orgmode-mXXj517/zsQ@plane.gmane.org \
    --cc=public-sva-news-D0wtAvR13HarG/iDocfnWg@plane.gmane.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).