Re: Tricking org-mode into using markdown conventions

[Daryl Manning <dwm+orgmode@wakatara.com>]

[-- Attachment #1.1: Type: text/plain, Size: 5872 bytes --]

This looks great (your elisp-fu is impressive) and definitely fulfills
making it look markdown-ish. Thanks! Will plug it in tonight and take it
for a pain.

I am assuming though, from the lack of answers back, that there appears to
be no way to have org-mode grok markdown code blocks (triple backticks)
when it parses as a substitute for `#+BEGIN_SRC` ?

Daryl.


On Mon, May 4, 2020 at 3:37 PM Diego Zamboni <diego@zzamboni.org> wrote:

> Ihor,
>
> Awesome, thanks for the tip. Using your code, the following config (inside
> the code from https://pank.eu/blog/pretty-babel-src-blocks.html) produces
> a display with the backticks instead of begin/end_src:
>
>       (defun yant/str-to-glyph (str)
>         "Transform string into glyph, displayed correctly."
>         (let ((composition nil))
>           (dolist (char (string-to-list str)
>                         (nreverse (cdr composition)))
>             (push char composition)
>             (push '(Br . Bl) composition))))
>
>       (defun rasmus/org-prettify-symbols ()
>         (mapc (apply-partially 'add-to-list 'prettify-symbols-alist)
>               (cl-reduce 'append
>                          (mapcar (lambda (x) (list x (cons (upcase (car
> x)) (cdr x))))
>                                  `(("#+begin_src" . ,(yant/str-to-glyph
> "```")) ;; ⎡ ➤ 🖝 ➟ ➤ ✎
>                                    ("#+end_src"   . ,(yant/str-to-glyph
> "```")) ;; ⎣ ✐
>                                    ("#+header:" . ,rasmus/ob-header-symbol)
>                                    ("#+begin_quote" . ?«)
>                                    ("#+end_quote" . ?»)))))
>         (turn-on-prettify-symbols-mode)
>         (add-hook 'post-command-hook 'rasmus/org-prettify-src t t))
>
> It looks like this in my config (the bars hide the header arguments):
>
> [image: image.png]
>
> --Diego
>
>
> On Mon, May 4, 2020 at 6:19 AM Ihor Radchenko <yantar92@gmail.com> wrote:
>
>> > I did a quick test, and it seems
>> > that =prettify-symbols-alist= (which is what this code uses) can only
>> > replace for a single character, so I was not able to make it display
>> > the three backticks, but there might be other techniques that can be
>> > used.
>>
>> Yes, there is another technique.
>> See part of my config below:
>>
>>
>>   (defun yant/str-to-glyph (str)
>>     "Transform string into glyph, displayed correctly."
>>     (let ((composition nil))
>>       (dolist (char (string-to-list str)
>>                     (nreverse (cdr composition)))
>>         (push char composition)
>>         (push '(Br . Bl) composition))))
>>
>>   (append pretty-symbol-patterns
>>         `(((yant/str-to-glyph " ") org-specific ,(format
>> "^\\(\\*\\{%d,%d\\}\\)\\*[^*]" (1- org-inlinetask-min-level) (1-
>> org-inlinetask-max-level)) (org-mode) 1)
>>           ((yant/str-to-glyph "⇒⇒⇒") org-specific ,(format
>> "^\\(\\*\\{%d,%d\\}\\)\\(\\*\\)[^*]" (1- org-inlinetask-min-level) (1-
>> org-inlinetask-max-level)) (org-mode) 2)
>>           (?╭ org-specific "^[ ]*#[+]NAME" (org-mode))
>>           (?╭ org-specific "^[ ]*#[+]name" (org-mode))
>>           (?├ org-specific "[ ]*#[+]begin_src" (org-mode))
>>           (?├ org-specific "[ ]*#[+]BEGIN_SRC" (org-mode))
>>           (?╰ org-specific "[ ]*#[+]end_src" (org-mode))
>>           (?╰ org-specific "[ ]*#[+]END_SRC" (org-mode))
>>           ((yant/str-to-glyph "📁📁📁") org-specific ":\\(ATTACH\\):"
>> (org-mode) 1)
>>           ((yant/str-to-glyph "☠D") org-specific "\\<DEADLINE:"
>> (org-mode))
>>           ((yant/str-to-glyph "◴S") org-specific "\\<SCHEDULED:"
>> (org-mode))))
>>
>> Diego Zamboni <diego@zzamboni.org> writes:
>>
>> > Hi Daryl,
>> >
>> > If it's for display purposes only, you might be able to simply use
>> > display substitutions for things to appear the way you want. For
>> > example, I use the technique described here:
>> > https://pank.eu/blog/pretty-babel-src-blocks.html to replace the
>> > begin/end_src strings with symbols. I did a quick test, and it seems
>> > that =prettify-symbols-alist= (which is what this code uses) can only
>> > replace for a single character, so I was not able to make it display
>> > the three backticks, but there might be other techniques that can be
>> > used.
>> >
>> > --Diego
>> >
>> > On Sun, May 3, 2020 at 6:24 PM Daryl Manning <dwm+orgmode@wakatara.com>
>> wrote:
>> >>
>> >> While using C-c C-, is easy enough for insertion and such, I was
>> wondering if there was any way of having org-mode honour markdown
>> conventions for things like code fences and quotes.
>> >>
>> >> ``` elisp
>> >> #+begin_src
>> >> #+end_src
>> >>
>> >> #+begin_quote
>> >> #+end_quote
>> >> ```
>> >>
>> >> being a bit nicer to read with
>> >>
>> >> ``` go
>> >> code block
>> >> ```
>> >> as well as
>> >>
>> >> > And gentlemen in England now-a-bed.
>> >> > Shall think themselves accurs'd they were not here,
>> >> > And hold their manhoods cheap whiles any speaks.
>> >> > That fought with us upon Saint Crispin's day.
>> >>
>> >> Just curious as to whether that's possible. YMMV before you start
>> debating on whether you think this is a good idea or not... =]
>> >>
>> >> Of course, I'd want the code highlighting especially to work that way,
>> though... =]  Less concerned with whether it works in export modes for the
>> moment, more about display atm.
>> >>
>> >> thanks!
>> >> Daryl.
>> >>
>> >>
>> >>
>> >>
>> >>
>> >
>>
>> --
>> Ihor Radchenko,
>> PhD,
>> Center for Advancing Materials Performance from the Nanoscale (CAMP-nano)
>> State Key Laboratory for Mechanical Behavior of Materials, Xi'an Jiaotong
>> University, Xi'an, China
>> Email: yantar92@gmail.com, ihor_radchenko@alumni.sutd.edu.sg
>>
>

[-- Attachment #1.2: Type: text/html, Size: 8416 bytes --]

[-- Attachment #2: image.png --]
[-- Type: image/png, Size: 62155 bytes --]