|
From: | Brent Annable |
Subject: | Re: Alphabetised table of contents? |
Date: | Fri, 23 Sep 2022 16:11:20 +1000 |
Le 21/09/2022 à 20:39, Valentin Petzel a écrit :
> Hello Jean,
>
> at least for me this code fails to change the order of the toc. The reason for
> this is that toc-markup does not in fact contain the markup, but the symbol
> under which the formatting markup is saved in layout.
>
> So I suppose you rather want to use the text property:
>
> (sorted-toc-alist
> (sort toc-alist
> ;; Could use comparator-from-key in 2.23
> (lambda (item1 item2)
> (let ((mkup1 (assoc-get 'text (cdr item1)))
> (mkup2 (assoc-get 'text (cdr item2))))
> (string<?
> (markup->string mkup1)
> (markup->string mkup2))))))
Whoops, yes. Not sure how I didn't see that they weren't sorted.
Maybe I did a test and sent the wrong version? Weird. Anyway,
thanks for the correction.
[Prev in Thread] | Current Thread | [Next in Thread] |