emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] regexp link on windows problem


From: Rafal
Subject: Re: [O] regexp link on windows problem
Date: Fri, 11 Mar 2011 13:41:45 +0000 (UTC)
User-agent: Loom/3.14 (http://gmane.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)))))))






reply via email to

[Prev in Thread] Current Thread [Next in Thread]