From mboxrd@z Thu Jan 1 00:00:00 1970 From: Sebastien Vauban Subject: Boxquote for code in UTF-8 export Date: Fri, 12 Sep 2014 17:09:16 +0200 Message-ID: <86y4tori3n.fsf@somewhere.org> 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, I'd advice to use UTF-8 characters more wildly available in the different fonts for drawing the Boxquote around code, in function: =E2=95=AD=E2=94=80=E2=94=80=E2=94=80=E2=94=80 =E2=94=82 (defun org-ascii--box-string (s info) =E2=94=82 "Return string S with a partial box to its left. =E2=94=82 INFO is a plist used as a communication channel." =E2=94=82 (let ((utf8p (eq (plist-get info :ascii-charset) 'utf-8))) =E2=94=82 (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`---= -") =E2=94=82 (replace-regexp-in-string =E2=94=82 "^" (if utf8p "=E2=94=82 " "| ") =E2=94=82 ;; Remove last newline character. =E2=94=82 (replace-regexp-in-string "\n[ \t]*\\'" "" s))))) =E2=95=B0=E2=94=80=E2=94=80=E2=94=80=E2=94=80 Even if it may always work in NT Emacs, thanks to font substitution, it does not in Cygwin Emacs. And, even with substitution, the effect may be not completely right, as you can see on http://screencast.com/t/3P4oRqKd. I've looked for corner characters in - Consolas, - Courier New, - DejaVu Sans Mono, - Lucida Console, and - Lucida Sans Typewriter. 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). Best regards, Seb --=20 Sebastien Vauban