From mboxrd@z Thu Jan 1 00:00:00 1970 From: Michael Brand <michael.ch.brand@gmail.com> Subject: Re: link interfering with brackets when abbreviated Date: Mon, 3 Mar 2014 06:54:29 +0100 Message-ID: <CALn3zogLPBQ4o6NmVf_Z5h3VOQAQvvFigJ8MZMGr-Z-yKWP9xA@mail.gmail.com> References: <CALn3zogENwXKHEsxrMVw-MmYEW5+S66LQv3y7Z728WCBSGEpyw@mail.gmail.com> <CALn3zog6JUry5JofCgk=NVvW6DkHpCBf1UTNKm0ZTioGz0Oyww@mail.gmail.com> <87ppm9sxoh.fsf@gmail.com> <CALn3zojtvg0-oTL9pos=gFtdic=fjHJZczG6DjhpcRpv88mQ_g@mail.gmail.com> <87lhwxswby.fsf@gmail.com> <CALn3zogo=YiiKU9JjkxUHQ5FimRv2i92hOZ5SKHGZ3pqyRQcJQ@mail.gmail.com> <87ha7lsu5o.fsf@gmail.com> <CALn3zojCxNuX5fU=Liqqzm8qCJtCs2GpPbhy3TdCe+E2_eLOfA@mail.gmail.com> <8761o1n63t.fsf@bzg.ath.cx> <8738j5snms.fsf@gmail.com> <87vbw11o3q.fsf@bzg.ath.cx> <87ppm8rgrf.fsf@gmail.com> <CALn3zoj+au9zBUBCSZ_n9LLNvFX+ARD8a8e0ROWCSGPnbhPRww@mail.gmail.com> <87lhwwgqe4.fsf@bzg.ath.cx> <878uswqfzc.fsf@gmail.com> <87zjl9vjw4.wl@dns1.atmark-techno.com> <87ha7hpt6l.fsf@gmail.com> <87wqgdv48n.wl@dns1.atmark-techno.com> <87mwh9nf6h.fsf@gmail.com> <87wqgcka56.fsf@bzg.ath.cx> <87y50sn09o.fsf@gmail.com> <878ussk3c7.fsf@bzg.ath.cx> Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org> Received: from eggs.gnu.org ([2001:4830:134:3::10]:44180) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from <michael.ch.brand@gmail.com>) id 1WKLph-0004ah-0h for emacs-orgmode@gnu.org; Mon, 03 Mar 2014 00:54:33 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from <michael.ch.brand@gmail.com>) id 1WKLpf-00077T-Oa for emacs-orgmode@gnu.org; Mon, 03 Mar 2014 00:54:32 -0500 In-Reply-To: <878ussk3c7.fsf@bzg.ath.cx> List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org> List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>, <mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe> List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode> List-Post: <mailto:emacs-orgmode@gnu.org> List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help> List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>, <mailto:emacs-orgmode-request@gnu.org?subject=subscribe> Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Nicolas Goaziou <n.goaziou@gmail.com>, Bastien <bzg@gnu.org> Cc: Org Mode <emacs-orgmode@gnu.org> Hi all On Sun, Mar 2, 2014 at 4:49 PM, Bastien <bzg@gnu.org> wrote: > In the meantime, other users' voices can help us step back and > see things differently. May I ask at least Nicolas and Bastien: When you carefully reread my last post (Thursday) http://lists.gnu.org/archive/html/emacs-orgmode/2014-02/msg00991.html of this thread: Is it clear that when point is after the character "x" - x y [2014-03-03 Mon] z t http://orgmode.org I want to keep "M-x org-open-at-point" to result in the error "No link found", in any case? The other reason for this post is an update of my function f-open-link-between-point-and-eol to deal with links in Org mode that occur in a place that is not a link according to Org syntax (currently two cases in discussion). I bind this function still to "C-c o". Not to "C-c C-o", because I want to use f-open-link-between-point-and-eol also outside of Org and because I want to have the possibility to use "C-c C-o" to find out on which point not and on which point org-open-at-point results in the error "No link found", for example to learn more about Org syntax and how to better cooperate with it. #+BEGIN_SRC emacs-lisp (defun f-open-link-between-point-and-eol () "Move to and open first link between point and end of line. As long as not yet at end of line and as long as `org-open-at-point' and `browse-url-at-point' result in an error advance point by one character. For Org and other major modes." (interactive) (let ((p (point)) opened) (while (not (or (eolp) (progn (ignore-errors (cond ;; Org mode ((eq major-mode 'org-mode) (org-open-at-point) (setq opened 'org-open-at-point)) ;; Maybe more major modes that have an ;; open function specific to their ;; syntax )) (unless opened (ignore-errors (browse-url-at-point) (setq opened 'browse-url-at-point))) opened))) (forward-char)) (if opened (message "Link opened with %s" opened) (goto-char p) (user-error "No link between point and end of line")))) #+END_SRC Here f-open-link-between-point-and-eol is with "(org-open-at-point)" but actually I'm using "(org-open-at-point 1)" instead. Michael