From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Jean Louis Newsgroups: gmane.emacs.help Subject: Re: asciidoctor Date: Thu, 9 Feb 2023 21:41:13 +0300 Message-ID: References: <7d298e10-22a2-d962-4bf8-d5d71899d30d@posteo.de> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 7bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="11664"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Mutt/2.2.9+54 (af2080d) (2022-11-21) Cc: "help-gnu-emacs@gnu.org" To: Gottfried Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Thu Feb 09 20:07:16 2023 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1pQCGJ-0002pY-IC for geh-help-gnu-emacs@m.gmane-mx.org; Thu, 09 Feb 2023 20:07:15 +0100 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1pQCFq-00081v-Lr; Thu, 09 Feb 2023 14:06:46 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pQCFo-00080X-HO for help-gnu-emacs@gnu.org; Thu, 09 Feb 2023 14:06:44 -0500 Original-Received: from stw1.rcdrun.com ([217.170.207.13]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pQCFm-0001mX-IF for help-gnu-emacs@gnu.org; Thu, 09 Feb 2023 14:06:44 -0500 Original-Received: from localhost ([::ffff:197.239.6.100]) (AUTH: PLAIN admin, TLS: TLS1.3,256bits,ECDHE_RSA_AES_256_GCM_SHA384) by stw1.rcdrun.com with ESMTPSA id 0000000000103A06.0000000063E54440.00007600; Thu, 09 Feb 2023 12:06:39 -0700 Mail-Followup-To: Gottfried , "help-gnu-emacs@gnu.org" Content-Disposition: inline In-Reply-To: <7d298e10-22a2-d962-4bf8-d5d71899d30d@posteo.de> Received-SPF: pass client-ip=217.170.207.13; envelope-from=bugs@gnu.support; helo=stw1.rcdrun.com X-Spam_score_int: -2 X-Spam_score: -0.3 X-Spam_bar: / X-Spam_report: (-0.3 / 5.0 requ) BAYES_00=-1.9, RCVD_IN_SBL=0.141, RCVD_IN_SORBS_WEB=1.5, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.help:142687 Archived-At: * Gottfried [2023-02-09 19:51]: > Hi everybody, > > I installed asccidoc and asciidoctor > > and I was able to open adoc-mode in emacs. > > But what are with those messages? You need not put attention on it. It is not critical. adoc-mode will work. Here are some handy functions, I have modified it for you that you get preview of Asciidoc by using `asciidoctor` implementation (not asciidoc one). Both are good, but try this one first. You need to put functions somewhere. If you are in markdown or asciidoc mode you will get preview with C-c a (defun string-to-file-force (string file) "Prints string into file, matters not if file exists. Return FILE as file name." (with-temp-file file (insert string)) file) (defun rcd-command-output-from-input (program input &rest args) "Return output string from PROGRAM with given INPUT string and optional ARGS." (let* ((output (with-temp-buffer (insert input) (apply #'call-process-region nil nil program t '(t nil) nil args) (buffer-string)))) output)) (defun rcd-asciidoctor (string &rest args) "Return HTML by using Asciidoctor markup STRING." (let ((asciidoctor (executable-find "asciidoctor"))) (apply 'rcd-command-output-from-input "asciidoctor" string "-" args))) (defun rcd-asciidoctor-preview () "Preview asciidoctor" (interactive) (let ((asciidoctor (executable-find "asciidoctor"))) (when asciidoctor (let* ((output (buffer-string)) (output (rcd-asciidoctor output)) (file (string-to-file-force output "asciidoctor-preview.html"))) (browse-url file))))) (require 'adoc-mode) (define-key adoc-mode-map (kbd "C-c a") #'rcd-asciidoctor-preview) -- Jean Take action in Free Software Foundation campaigns: https://www.fsf.org/campaigns In support of Richard M. Stallman https://stallmansupport.org/