Re: Lua filter to fix incorrectly nested lists?

[JDTS <jdtsmith-Re5JQEeQqe8AvxtiuMwx3w@public.gmane.org>]

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

One other quick question: pandoc parses <br> as linebreak, and translates 
that into org as double-backslash \\.  Any way to disable this?  

On Monday, February 27, 2023 at 7:14:24 PM UTC-5 JDTS wrote:

> This works perfectly (including in targeting org, my use case).  Thanks so 
> much!
>
> On Monday, February 27, 2023 at 3:11:13 PM UTC-5 Julien Dutant wrote:
>
>> Well, couldn't help but give it a shot. Here's a short filter that does 
>> the trick. Will work at arbitrary depth.
>>
>> https://gist.github.com/jdutant/549ef06074d3ae00b78ca6ec8ed2cfe1
>>
>>
>> function fixList(elem) 
>> local changed = false 
>> local newList = pandoc.List:new() 
>>
>> local function isSubList(list) 
>> return #list == 1 
>> and (list[1].t == 'BulletList' or list[1].t == 'OrderedList') 
>> end 
>>
>> for _,item in ipairs(elem.c) do 
>>
>> if #newList > 0 and isSubList(item) then 
>> -- append item's sublist to the last item of newList 
>> changed = true 
>> newList[#newList]:insert(item[1]) 
>> else 
>> -- otherwise append item to newList 
>> newList:insert(item) 
>> end 
>>
>> end 
>>
>> if changed then 
>> elem.c = newList 
>> end 
>>
>> return changed and elem or nil 
>> end 
>>
>> return {{ 
>> OrderedList = fixList, 
>> BulletList = fixList, }}
>>
>> On Monday, February 27, 2023 at 12:33:54 AM UTC JDTS wrote:
>>
>>>
>>> Thanks, I'll investigate this.  The HTML structure is generated and 
>>> therefore quite uniform, so it may be possible to do the munging there. 
>>> On Sunday, February 26, 2023 at 10:47:36 AM UTC-5 Julien Dutant wrote:
>>>
>>>> From my labelled-lists filter (
>>>> https://github.com/dialoa/dialectica-filters/blob/main/labelled-lists/labelled-lists.lua), 
>>>> here is a filter + function that checks whether every item in a bullet list 
>>>> starts with a Span element. 
>>>>
>>>> ```lua 
>>>>
>>>> --- is_custom_labelled_list: Look for custom labels markup 
>>>> -- Custom label markup requires each item starting with a span 
>>>> -- containing the label 
>>>> -- @param element pandoc BulletList element 
>>>> function is_custom_labelled_list (element) 
>>>>    local is_cl_list = true 
>>>>
>>>>    -- the content of BulletList is a List of List of Blocks 
>>>>    for _,blocks in ipairs(element.c) do 
>>>>       -- check that the first element of the first block is Span 
>>>>       if not( blocks[1].c[1].t == 'Span' ) then 
>>>>          is_cl_list = false  
>>>>          break   
>>>>      end 
>>>>     end 
>>>>    return is_cl_list 
>>>>
>>>> end
>>>>
>>>> return {{ 
>>>> BulletList = function(element) 
>>>> if is_custom_labelled_list(element) then 
>>>> return pandoc.Para(pandoc.Str('Was a list of the required kind!)))
>>>> end 
>>>> end, }}
>>>>
>>>> ```
>>>>
>>>> The difficulty with manipulating lists is to follow their intricate 
>>>> structure: a BulletList element as a content (element.c) that is a pandoc 
>>>> List. Each item in it (element.c[1], element.c[2]) is of Blocks type, i.e. 
>>>> a pandoc.List where the each element is a block. In your case you should 
>>>> check that the list item only contains one block of type ordered list:
>>>>
>>>> if #elem.c[i] == 1 then list_item_contains_one_block_only = true end
>>>>
>>>> and check that this block is of type OrderedList:
>>>> if #elem.c[i]==1 and elem.c[i].t == 'OrderedList' then ...
>>>>
>>>> you should then add that block to the previous item, and remove the 
>>>> current item.
>>>>
>>>> Hope this helps,
>>>>
>>>> J
>>>>
>>>> On Saturday, February 25, 2023 at 10:06:45 PM UTC JDTS wrote:
>>>>
>>>>> Thanks.  Any pointers to lua filters that do something similar?
>>>>>
>>>>> On Saturday, February 25, 2023 at 10:01:08 AM UTC-5 Julien Dutant 
>>>>> wrote:
>>>>>
>>>>>> Looks feasible. Pandoc converts the first html to:
>>>>>>
>>>>>> [ BulletList
>>>>>>     [ [ Plain
>>>>>>           [ ... Inlines ]
>>>>>>       ]
>>>>>>     , [ BulletList
>>>>>>           [ [ Plain
>>>>>>                 [ ... Inlines ]
>>>>>>             ]
>>>>>>           , [ Plain
>>>>>>                 [ ... Inlines  ]
>>>>>>             ]
>>>>>>           ]
>>>>>>       ]
>>>>>>     , [ Plain
>>>>>>           [ Inlines ]
>>>>>>       ]
>>>>>>     ]
>>>>>> ]
>>>>>>
>>>>>> I.e., the sublist is converted to its own list item. So the filter 
>>>>>> should pick up list, check if any item within them consists of a lone 
>>>>>> sublist, and if so, move it to the previous item. (And best, apply the 
>>>>>> filter recursively to that sublist itself.)
>>>>>>
>>>>>> On Saturday, February 25, 2023 at 2:26:04 PM UTC JDTS wrote:
>>>>>>
>>>>>>> The Apple Notes app produces (via AppleScript) HTML for notes with 
>>>>>>> nested lists structured like:
>>>>>>>
>>>>>>> <ul>
>>>>>>>
>>>>>>> <li>Level 1 element 1</li>
>>>>>>>
>>>>>>> <ul>
>>>>>>>
>>>>>>> <li>Level 2 element 1</li>
>>>>>>>
>>>>>>> <li>Level 2 element 2</li>
>>>>>>>
>>>>>>> </ul>
>>>>>>>
>>>>>>> <li>Level 1 element 2</li>
>>>>>>>
>>>>>>> </ul>
>>>>>>>
>>>>>>> As you can see, the sublist is incorrectly positioned.  It should be 
>>>>>>> positioned *within* the <li> Level 1 element 1 item, ala:
>>>>>>>
>>>>>>> <ul>
>>>>>>>
>>>>>>> <li>Level 1 element 1
>>>>>>>
>>>>>>>     <ul>
>>>>>>>
>>>>>>>     <li>Level 2 element 1</li>
>>>>>>>
>>>>>>>     <li>Level 2 element 2</li>
>>>>>>>
>>>>>>>     </ul>
>>>>>>>
>>>>>>> </li>
>>>>>>>
>>>>>>> <li>Level 1 element 2</li>
>>>>>>>
>>>>>>> </ul>
>>>>>>>
>>>>>>> Is there a straightforward way with Lua filters to fix this at the 
>>>>>>> AST level, for arbitrary-depth sublist nesting?
>>>>>>>
>>>>>>

-- 
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/fb8d262d-bddc-4b79-8aca-703c1dffea36n%40googlegroups.com.

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