Re: No indent after horizontal rule

[Ian Barnes <ianbarnes1963-Re5JQEeQqe8AvxtiuMwx3w@public.gmane.org>]

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

@Denis, thanks, cool, I'll have a look.

Unrelated question. When I compiled my dozen lines or so of Haskell filter 
to an executable, the result was 20MB. Is that normal?

On Wednesday, 18 August 2021 at 9:12:39 am UTC+2 denis...-NSENcxR/0n0@public.gmane.org wrote:

> Just a quick note: there’s also the the noindentafter package: 
> https://www.ctan.org/pkg/noindentafter
>
>  
>
> Might be an idea to look into how this package implements this.
>
>  
>
> Best
>
> Denis
>
>  
>
> *Von:* pandoc-...-/JYPxA39Uh5TLH3MbocFFw@public.gmane.org <pandoc-...-/JYPxA39Uh5TLH3MbocFFw@public.gmane.org> *Im 
> Auftrag von *Ian Barnes
> *Gesendet:* Mittwoch, 18. August 2021 01:02
> *An:* pandoc-discuss <pandoc-...-/JYPxA39Uh5TLH3MbocFFw@public.gmane.org>
> *Betreff:* Re: No indent after horizontal rule
>
>  
>
> Thanks for the response. Yes, I agree that's simpler and I tried something 
> like that first too, but it failed on my first attempt. TeX just ignores 
> the \noindent, because there's a blank line between it and the following 
> paragraph in the generated TeX file. But I went back to it just now and it 
> works if you add something like this
>
>  
>
> \makeatletter
>
> \def\gobblepar{\@ifnextchar\par\@gobble\relax}
>
> \makeatother
>
>  
>
> to your template or header-includes and then stick a \gobblepar after the 
> \noindent. I'm a little concerned about what this does if the block after 
> the hrule isn't a paragraph. Seems to result in extra vertical space.  But 
> that seems kind-of a perverse thing for a document author to do.
>
>  
>
> Interesting, thanks, that was fun...
>
> On Monday, 16 August 2021 at 6:52:21 pm UTC+2 John MacFarlane wrote:
>
>
> The most straightforward approach would probably just be 
>
> fixhrule :: Block -> Block 
> fixhrule HorizontalRule = 
> RawBlock (Format "latex") "
> \\begin{center}\\rule{0.5\\linewidth}{0.5pt}\\end{center}\\noindent" 
> fixhrule x = x 
>
>
> Ian Barnes <ianbar...-Re5JQEeQqe8AvxtiuMwx3w@public.gmane.org> writes: 
>
> > It's not quite the same situation as the various discussions about not 
> > wanting indents after blockquotes, but similar enough that perhaps my 
> > solution is interesting for others. 
> > 
> > I'm converting Markdown to PDF via LaTeX, with indent:true, and I'm 
> using 
> > horizontal rules as scene or section breaks. I found the indent on the 
> > first paragraph after such a break ugly and wanted to do an automatic 
> > \noindent after every horizontal rule. This turned out to be pretty easy 
> > with a Haskell filter. 
> > 
> > As it's the first time I've written anything in Haskell, I thought I'd 
> post 
> > it here for feedback. Seems to me like maybe there's a more concise way 
> to 
> > do the same thing. 
> > 
> > Also this could obviously be adapted to actually remove the horizontal 
> > rules and replace them with the Pandoc internal representation of a 
> > vertical skip or blank line (whatever that is). 
> > 
> > import Data.Text 
> > import Text.Pandoc.JSON 
> > 
> > main :: IO () 
> > main = toJSONFilter noIndentAfterHorizontalRule 
> > 
> > noIndentAfterHorizontalRule :: Pandoc -> Pandoc 
> > noIndentAfterHorizontalRule doc = 
> > let Pandoc meta blocks = doc 
> > in Pandoc meta (mapAfterHorizontalRule noIndentifyPara blocks) 
> > 
> > mapAfterHorizontalRule :: (Block -> Block) -> [Block] -> [Block] 
> > mapAfterHorizontalRule f (HorizontalRule : block : blocks) = 
> > HorizontalRule : f block : mapAfterHorizontalRule f blocks 
> > mapAfterHorizontalRule f (block : blocks) = block : 
> mapAfterHorizontalRule 
> > f blocks 
> > mapAfterHorizontalRule f [] = [] 
> > 
> > noIndentifyPara :: Block -> Block 
> > noIndentifyPara (Para xs) = 
> > Para (RawInline (Format (Data.Text.pack "tex")) (Data.Text.pack 
> > "\\noindent ") : xs) 
> > noIndentifyPara x = x 
> > 
> > -- 
> > You received this message because you are subscribed to the Google 
> Groups "pandoc-discuss" group. 
> > To unsubscribe from this group and stop receiving emails from it, send 
> an email to pandoc-discus...-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org 
> > To view this discussion on the web visit 
> https://groups.google.com/d/msgid/pandoc-discuss/9953168b-aa53-4c75-b18b-612ddd8a3ddfn%40googlegroups.com. 
>
>
> -- 
> You received this message because you are subscribed to the Google Groups 
> "pandoc-discuss" group.
> To unsubscribe from this group and stop receiving emails from it, send an 
> email to pandoc-discus...-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org
>
> To view this discussion on the web visit 
> https://groups.google.com/d/msgid/pandoc-discuss/945bf0d5-b826-4446-a086-0b1120824e80n%40googlegroups.com 
> <https://groups.google.com/d/msgid/pandoc-discuss/945bf0d5-b826-4446-a086-0b1120824e80n%40googlegroups.com?utm_medium=email&utm_source=footer>
> .
>

-- 
You received this message because you are subscribed to the Google Groups "pandoc-discuss" group.
To unsubscribe from this group and stop receiving emails from it, send an email to pandoc-discuss+unsubscribe-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org
To view this discussion on the web visit https://groups.google.com/d/msgid/pandoc-discuss/a2305a76-f1a6-420a-a589-f0a95a7fecb3n%40googlegroups.com.

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