From mboxrd@z Thu Jan 1 00:00:00 1970 From: Sebastien Vauban Subject: Re: Boxquote for code in UTF-8 export Date: Fri, 26 Sep 2014 12:12:07 +0200 Message-ID: <86mw9mn11k.fsf@somewhere.org> References: <86y4tori3n.fsf@somewhere.org> <87ppf0psdd.fsf@nicolasgoaziou.fr> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org Hello, Nicolas Goaziou wrote: > Sebastien Vauban writes: > >> I'd advice to use UTF-8 characters more wildly available in the >> different fonts for drawing the Boxquote around code, in function >> `org-ascii--box-string'. >> >> The results is that only \u250C and \u2514 are "universal" (except in >> Lucida Sans Typewriter which implements almost nothing -- unlike >> DejaVu Sans Mono which implements almost everything). > > There are three characters required. You are only suggesting two. Yes. > What should be the third? The third is present in (almost?) all fonts. No problem with it. > Anyhow, do you want to provide a patch? Here it is. Best regards, Seb * ox-ascii.el (org-ascii--box-string): Choose more universal Unicode characters for boxquote corners. --- lisp/ox-ascii.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/ox-ascii.el b/lisp/ox-ascii.el index 6f2b43a..6316e59 100644 --- a/lisp/ox-ascii.el +++ b/lisp/ox-ascii.el @@ -542,7 +542,7 @@ Empty lines are not indented." "Return string S with a partial box to its left. INFO is a plist used as a communication channel." (let ((utf8p (eq (plist-get info :ascii-charset) 'utf-8))) - (format (if utf8p "=E2=95=AD=E2=94=80=E2=94=80=E2=94=80=E2=94=80\n%s\n= =E2=95=B0=E2=94=80=E2=94=80=E2=94=80=E2=94=80" ",----\n%s\n`----") + (format (if utf8p "=E2=94=8C=E2=94=80=E2=94=80=E2=94=80=E2=94=80\n%s\n= =E2=94=94=E2=94=80=E2=94=80=E2=94=80=E2=94=80" ",----\n%s\n`----") (replace-regexp-in-string "^" (if utf8p "=E2=94=82 " "| ") ;; Remove last newline character. --=20 2.1.1