[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] Boxquote for code in UTF-8 export
From: |
Sebastien Vauban |
Subject: |
Re: [O] Boxquote for code in UTF-8 export |
Date: |
Fri, 26 Sep 2014 12:12:07 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.3.93 (windows-nt) |
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 "╭────\n%s\n╰────" ",----\n%s\n`----")
+ (format (if utf8p "┌────\n%s\n└────" ",----\n%s\n`----")
(replace-regexp-in-string
"^" (if utf8p "│ " "| ")
;; Remove last newline character.
--
2.1.1