emacs-devel
[Top][All Lists]
Advanced

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

Re: emacsclient in elisp


From: Jean Louis
Subject: Re: emacsclient in elisp
Date: Fri, 21 May 2021 10:25:43 +0300
User-agent: Mutt/2.0.6 (2021-03-06)

* Eli Zaretskii <eliz@gnu.org> [2021-05-21 10:08]:
> > Date: Fri, 21 May 2021 09:27:14 +0300
> > From: Jean Louis <bugs@gnu.support>
> > Cc: Eli Zaretskii <eliz@gnu.org>,
> >   Daniel Mendler <mail@daniel-mendler.de>, emacs-devel@gnu.org
> > 
> > (defun tell-me ()
> >   (read-from-minibuffer "")))
> > 
> > $ emacs -Q -l process-org.el --batch -f tell-me 
> > 
> > Debugger entered--Lisp error: (end-of-file)
> >   read-from-string("")
> >   tell-me()
> >   command-line-1(("-l" "process-org.el" "-f" "tell-me"))
> >   command-line()
> >   normal-top-level()
> 
> Works for me.  And note that your backtrace says read-from-string, not
> read-from-minibuffer.

OK thank you, I got it to work as by reading examples on:
https://superuser.com/questions/31404/how-to-make-emacs-read-buffer-from-stdin-on-start

So I made this pure Emacs command line converter from Org to Markdown
and that works well. 

#!/home/data1/protected/bin/emacs --script 

(require 'org)
(require 'ox)
(require 'ox-md)

(defun org-to-markdown ()
  (let* ((org (with-temp-buffer
                (progn
                  (condition-case nil
                      (let (line)
                        (while (setq line (read-from-minibuffer ""))
                          (insert line)
                          (insert "\n")))
                    (error nil))
                  (buffer-string))))
         (markdown (with-temp-buffer
                     (insert org)
                     (org-export-to-buffer 'md (current-buffer) nil nil nil t)
                     (buffer-string))))
    (prin1 markdown)))

(org-to-markdown)



$ ./process-org.el
#+TITLE: org

** Hello
"
# Table of Contents

1.  [Hello](#orgf318453)



<a id=\"orgf318453\"></a>

# Hello

"




reply via email to

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