* [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 external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.