emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [PATCH] Open single link immediately
@ 2009-08-28 17:23 Bernt Hansen
  2009-08-30  8:09 ` Carsten Dominik
  0 siblings, 1 reply; 3+ messages in thread
From: Bernt Hansen @ 2009-08-28 17:23 UTC (permalink / raw)
  To: emacs-orgmode; +Cc: Bernt Hansen

C-c C-o on a headline or in the agenda displays a menu of links to
choose from.  If there is only a single link then go there directly
skipping the menu.
---
This patch is available at git://git.norang.ca/org-mode.git for-carsten

 lisp/org.el |   31 ++++++++++++++++---------------
 1 files changed, 16 insertions(+), 15 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index a5181ab..f3d8976 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -8073,21 +8073,22 @@ needed for the interpretation of abbreviated links."
 	(push (match-string 0) links))
       (setq links (reverse links))
       (unless links (error "No links"))
-      
-      (unless (and (integerp nth) (>= (length links) nth))
-	(save-excursion
-	  (save-window-excursion
-	    (delete-other-windows)
-	    (with-output-to-temp-buffer "*Select Link*"
-	      (princ "Select link\n\n")
-	      (mapc (lambda (l) (princ (format "[%d] %s\n" (incf cnt) l)))
-		    links))
-	    (org-fit-window-to-buffer (get-buffer-window "*Select Link*"))
-	    (message "Select link to open:")
-	    (setq c (read-char-exclusive))
-	      (and (get-buffer "*Select Link*") (kill-buffer "*Select Link*"))))
-	(setq nth (- c ?0)))
-      
+      (if (eq 1 (length links))
+	  (setq c 1)
+	(unless (and (integerp nth) (>= (length links) nth))
+	  (save-excursion
+	    (save-window-excursion
+	      (delete-other-windows)
+	      (with-output-to-temp-buffer "*Select Link*"
+		(princ "Select link\n\n")
+		(mapc (lambda (l) (princ (format "[%d] %s\n" (incf cnt) l)))
+		      links))
+	      (org-fit-window-to-buffer (get-buffer-window "*Select Link*"))
+	      (message "Select link to open:")
+	      (setq c (read-char-exclusive))
+	      (and (get-buffer "*Select Link*") (kill-buffer "*Select Link*"))))))
+      (setq nth (- c ?0))
+
       (unless (and (integerp nth) (>= (length links) nth))
 	(error "Invalid link selection"))
       (setq link (nth (1- nth) links)
-- 
1.6.4.1.331.gda1d56

^ permalink raw reply related	[flat|nested] 3+ messages in thread
* Re: [PATCH] Open single link immediately
  2009-08-28 17:23 [PATCH] Open single link immediately Bernt Hansen
@ 2009-08-30  8:09 ` Carsten Dominik
  2009-08-30 14:27   ` Tim O'Callaghan
  0 siblings, 1 reply; 3+ messages in thread
From: Carsten Dominik @ 2009-08-30  8:09 UTC (permalink / raw)
  To: Bernt Hansen; +Cc: emacs-orgmode

This will be in the next push, when our repository is online again.

Thanks!

- Carsten

On Aug 28, 2009, at 7:23 PM, Bernt Hansen wrote:

> C-c C-o on a headline or in the agenda displays a menu of links to
> choose from.  If there is only a single link then go there directly
> skipping the menu.
> ---
> This patch is available at git://git.norang.ca/org-mode.git for- 
> carsten
>
> lisp/org.el |   31 ++++++++++++++++---------------
> 1 files changed, 16 insertions(+), 15 deletions(-)
>
> diff --git a/lisp/org.el b/lisp/org.el
> index a5181ab..f3d8976 100644
> --- a/lisp/org.el
> +++ b/lisp/org.el
> @@ -8073,21 +8073,22 @@ needed for the interpretation of abbreviated  
> links."
> 	(push (match-string 0) links))
>       (setq links (reverse links))
>       (unless links (error "No links"))
> -
> -      (unless (and (integerp nth) (>= (length links) nth))
> -	(save-excursion
> -	  (save-window-excursion
> -	    (delete-other-windows)
> -	    (with-output-to-temp-buffer "*Select Link*"
> -	      (princ "Select link\n\n")
> -	      (mapc (lambda (l) (princ (format "[%d] %s\n" (incf cnt) l)))
> -		    links))
> -	    (org-fit-window-to-buffer (get-buffer-window "*Select Link*"))
> -	    (message "Select link to open:")
> -	    (setq c (read-char-exclusive))
> -	      (and (get-buffer "*Select Link*") (kill-buffer "*Select  
> Link*"))))
> -	(setq nth (- c ?0)))
> -
> +      (if (eq 1 (length links))
> +	  (setq c 1)
> +	(unless (and (integerp nth) (>= (length links) nth))
> +	  (save-excursion
> +	    (save-window-excursion
> +	      (delete-other-windows)
> +	      (with-output-to-temp-buffer "*Select Link*"
> +		(princ "Select link\n\n")
> +		(mapc (lambda (l) (princ (format "[%d] %s\n" (incf cnt) l)))
> +		      links))
> +	      (org-fit-window-to-buffer (get-buffer-window "*Select Link*"))
> +	      (message "Select link to open:")
> +	      (setq c (read-char-exclusive))
> +	      (and (get-buffer "*Select Link*") (kill-buffer "*Select  
> Link*"))))))
> +      (setq nth (- c ?0))
> +
>       (unless (and (integerp nth) (>= (length links) nth))
> 	(error "Invalid link selection"))
>       (setq link (nth (1- nth) links)
> -- 
> 1.6.4.1.331.gda1d56
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

^ permalink raw reply	[flat|nested] 3+ messages in thread
* Re: [PATCH] Open single link immediately
  2009-08-30  8:09 ` Carsten Dominik
@ 2009-08-30 14:27   ` Tim O'Callaghan
  0 siblings, 0 replies; 3+ messages in thread
From: Tim O'Callaghan @ 2009-08-30 14:27 UTC (permalink / raw)
  To: org-mode

FWIW it should be back up on monday.

http://article.gmane.org/gmane.comp.version-control.git/85019

Tim.

2009/8/30 Carsten Dominik <carsten.dominik@gmail.com>:
> This will be in the next push, when our repository is online again.
>
> Thanks!
>
> - Carsten
>
> On Aug 28, 2009, at 7:23 PM, Bernt Hansen wrote:
>
>> C-c C-o on a headline or in the agenda displays a menu of links to
>> choose from.  If there is only a single link then go there directly
>> skipping the menu.
>> ---
>> This patch is available at git://git.norang.ca/org-mode.git for-carsten
>>
>> lisp/org.el |   31 ++++++++++++++++---------------
>> 1 files changed, 16 insertions(+), 15 deletions(-)
>>
>> diff --git a/lisp/org.el b/lisp/org.el
>> index a5181ab..f3d8976 100644
>> --- a/lisp/org.el
>> +++ b/lisp/org.el
>> @@ -8073,21 +8073,22 @@ needed for the interpretation of abbreviated
>> links."
>>        (push (match-string 0) links))
>>      (setq links (reverse links))
>>      (unless links (error "No links"))
>> -
>> -      (unless (and (integerp nth) (>= (length links) nth))
>> -       (save-excursion
>> -         (save-window-excursion
>> -           (delete-other-windows)
>> -           (with-output-to-temp-buffer "*Select Link*"
>> -             (princ "Select link\n\n")
>> -             (mapc (lambda (l) (princ (format "[%d] %s\n" (incf cnt) l)))
>> -                   links))
>> -           (org-fit-window-to-buffer (get-buffer-window "*Select Link*"))
>> -           (message "Select link to open:")
>> -           (setq c (read-char-exclusive))
>> -             (and (get-buffer "*Select Link*") (kill-buffer "*Select
>> Link*"))))
>> -       (setq nth (- c ?0)))
>> -
>> +      (if (eq 1 (length links))
>> +         (setq c 1)
>> +       (unless (and (integerp nth) (>= (length links) nth))
>> +         (save-excursion
>> +           (save-window-excursion
>> +             (delete-other-windows)
>> +             (with-output-to-temp-buffer "*Select Link*"
>> +               (princ "Select link\n\n")
>> +               (mapc (lambda (l) (princ (format "[%d] %s\n" (incf cnt)
>> l)))
>> +                     links))
>> +             (org-fit-window-to-buffer (get-buffer-window "*Select
>> Link*"))
>> +             (message "Select link to open:")
>> +             (setq c (read-char-exclusive))
>> +             (and (get-buffer "*Select Link*") (kill-buffer "*Select
>> Link*"))))))
>> +      (setq nth (- c ?0))
>> +
>>      (unless (and (integerp nth) (>= (length links) nth))
>>        (error "Invalid link selection"))
>>      (setq link (nth (1- nth) links)
>> --
>> 1.6.4.1.331.gda1d56
>>
>>
>>
>> _______________________________________________
>> Emacs-orgmode mailing list
>> Remember: use `Reply All' to send replies to the list.
>> Emacs-orgmode@gnu.org
>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>

^ permalink raw reply	[flat|nested] 3+ messages in thread
end of thread, other threads:[~2009-08-30 14:27 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2009-08-28 17:23 [PATCH] Open single link immediately Bernt Hansen
2009-08-30  8:09 ` Carsten Dominik
2009-08-30 14:27   ` Tim O'Callaghan

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).