From: Rafal <raf@irmak.com.pl>
To: emacs-orgmode@gnu.org
Subject: Re: regexp link on windows problem
Date: Fri, 11 Mar 2011 13:41:45 +0000 (UTC) [thread overview]
Message-ID: <loom.20110311T141204-597@post.gmane.org> (raw)
In-Reply-To: 87r5aenj02.fsf@gnu.org
Bastien <bzg <at> altern.org> writes:
Hi Bastien,
>
> Can you give an example?
>
So I'm trying to write a custom function to set regexp search string for c/c++
code by writing org-create-file-search-functions hook. (code #1 below )
After using the hook by issuing org-store-link in c/c++ buffer, and
org-insert-link in org-mode buffer I noticed that the link has slashes instead
of backslashes in my regexp.
So I delved into the org-insert-link code and found out that it calls
expand-file-name on the whole link (filename::regexp) which translates my
regexp's backslashes to slashes. It happens only on emacs on windows,
under linux it is ok.
I also experimented by changing the culprit lines of org-store-link and
it helped (code #2 below) but it seems to be too destructive.
So I'm wondering if it is a bug that may be fixed or my way of doing
it is wrong?
regards,
Rafal
GNU Emacs 23.2.1 (i386-mingw-nt5.1.2600) of 2010-05-08 on G41R2F1
Org-mode version 7.4
;; code #1
(defun make-token-regexp-1()
(let ((WS "") curpos-tmp)
(setq curpos (point))
(beginning-of-line)
(setq curpos-tmp (point))
(c-end-of-statement 1 nil t)
(or (eq curline (line-number-at-pos)) (goto-char curpos))
(setq curpos (point))
(c-beginning-of-statement 1 nil t)
(while (and (eq curline (line-number-at-pos)) (not (eq curpos (point))))
(setq curpos (point))
(setq curpos-tmp (point))
(c-beginning-of-statement 1 nil t))
(or (eq curline (line-number-at-pos)) (goto-char curpos-tmp))
(setq curpos (point))
(c-forward-token-2)
(while (and (eq curline (line-number-at-pos)) (not (eq curpos (point))))
(setq linkv (concat linkv WS (regexp-quote (org-trim (buffer-substring
curpos (point))))))
(setq curpos (point))
(and (< 0 (length linkv)) (setq WS "[ \\t]*"))
(c-forward-token-2)))
(goto-char curpos)
(end-of-line)
(and linkv (setq linkv (concat linkv "[ \\t]*" (regexp-quote (org-trim
(buffer-substring curpos (point)))))))
linkv)
(defun make-token-regexp()
(interactive)
(c-save-buffer-state ((savepos (point)) linkv tokens curpos (curline
(line-number-at-pos)))
(make-token-regexp-1)
(goto-char savepos)
(setq description "code-1")
(and linkv (setq linkv (concat "/" linkv "/")))
linkv
))
(add-hook 'org-create-file-search-functions 'make-token-regexp)
;; code #2
;; original piece of code
;; We are linking a file with relative path name.
(setq path (substring (expand-file-name path)
(match-end 0)))
(setq path (abbreviate-file-name (expand-file-name path)))))))
;;my changes
;; We are linking a file with relative path name.
(setq path (substring (expand-file-name path)
(match-end 0)))
(let ((path-1) (search-1))
(if (string-match "::\\(.+\\)\\'" path)
(progn (setq search-1 (match-string 1 path)
path-1 (substring path 0 (match-beginning 0))
path (concat (abbreviate-file-name
(expand-file-name path-1)) "::" search-1))))
(setq path (abbreviate-file-name (expand-file-name path)))))))
next prev parent reply other threads:[~2011-03-11 13:45 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-03-08 14:54 regexp link on windows problem Rafal Florek
2011-03-11 8:45 ` Bastien
2011-03-11 13:41 ` Rafal [this message]
2011-03-20 17:01 ` David Maus
2011-03-21 7:28 ` Rafal
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=loom.20110311T141204-597@post.gmane.org \
--to=raf@irmak.com.pl \
--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).