mailing-list for TeXmacs Users

[Giovanni Piredda <address@hidden>]

I think I have found a way to make it work, even if I miss understanding 
important features of the functions.

The default definition of (propose-name-buffer) is (from 
progs/texmacs/texmacs/tm-files.scm, copied from GitHub)

(tm-define (propose-name-buffer)
  (with name (url->unix (current-buffer))
    (cond ((not (url-scratch? name)) name)
          ((os-win32?) "")
          (else (string-append (var-eval-system "pwd") "/")))))


and it does not work on Windows because it does not put the colon after 
the drive volume letter (one obtains for example "/E/Varie/Test/..." 
where the ellipsis stands for the rest of the path, which is not ok).


I modified it in the following way

(tm-define (propose-name-buffer)
  (with name (url->system (current-buffer))
    (cond ((not (url-scratch? name)) name)
          ((os-win32?) "")
          (else (string-append (var-eval-system "pwd") "/")))))


using url->system instead of url->unix

I do not know whether this is the best way of modifying the function, 
since I do not know what the cond form does. But it works after, 
further, modifying its output, which contains double backslashes, to 
contain single slashes (I write a function that does this):

(define (prop-name-buffer) (string-join (string-split 
(propose-name-buffer) #\\ ) "/"))

So that one writes (propose-pdf-name) using the function 
(prop-name-buffer) in place of (propose-name-buffer)

(define (propose-pdf-name)
   (with name (prop-name-buffer)
     (if (string-ends? name ".tm")
         (string-append (string-drop-right name 3) ".pdf"))))


which works with

(define (export-to-proposed-pdf)
   (let ((pdf-name (propose-pdf-name)))
       (wrapped-print-to-file pdf-name)))


Since the redefinition of (propose-name-buffer) may interfere with other 
uses of this function, maybe one can assign the modified 
"name-proposing" function to another name :


(tm-define (my-propose-name-buffer)
  (with name (url->system (current-buffer))
    (cond ((not (url-scratch? name)) name)
          ((os-win32?) "")
          (else (string-append (var-eval-system "pwd") "/")))))

and

(define (prop-name-buffer) (string-join (string-split 
(my-propose-name-buffer) #\\ ) "/"))

Summary (please let me know if it works):


;---- export pdf on Windows ----


(tm-define (my-propose-name-buffer)
  (with name (url->system (current-buffer))
    (cond ((not (url-scratch? name)) name)
          ((os-win32?) "")
          (else (string-append (var-eval-system "pwd") "/")))))

(define (prop-name-buffer) (string-join (string-split 
(my-propose-name-buffer) #\\ ) "/"))


(define (propose-pdf-name)
   (with name (prop-name-buffer)
     (if (string-ends? name ".tm")
         (string-append (string-drop-right name 3) ".pdf"))))

(define (export-to-proposed-pdf)
   (let ((pdf-name (propose-pdf-name)))
       (wrapped-print-to-file pdf-name)))

(kbd-map
   ("M-e p" (export-to-proposed-pdf)))


Am 14.04.2022 um 00:52 schrieb Giovanni Piredda:
> On 14.04.22 00:08, vincent douce wrote:
> > Hello
> > this code works very fine on my mac and i use it since months, a real 
> > gain of time for me
> > but we dont manage to install in on a windows of a colleague
> > by her, "meta" corresponds to no key (we dont manage to assign a key 
> > to it) but works fine as "esc"
> > for example in math mode if we type esc then A, we get a tree
> > so we have tried esc and then e and then p but it makes nothing
> > an idea ?
> > Vincent
> >
> >
> > ;---- export pdf ----
> >
> > (define (propose-pdf-name)
> >    (with name (propose-name-buffer)
> >      (if (string-ends? name ".tm")
> >          (string-append (string-drop-right name 3) ".pdf"))))
> >
> > (define (export-to-proposed-pdf)
> >    (let ((pdf-name (propose-pdf-name)))
> >        (wrapped-print-to-file pdf-name)))
> >
> > (kbd-map
> >    ("M-e p" (export-to-proposed-pdf)))
>
>
>
> The only way I know of to figure out what is happening on Windows is 
> to execute the commands in a Scheme session.
>
> Id est, you have to execute the command itself, by writing it---in 
> this case (export-to-proposed-pdf)---and pressing Return, not the 
> keyboard shortcut. If there are any errors, they will appear as output 
> in the Scheme session.