* bug#27775: footnotes mode hanging indent [CODE INCLUDED]
@ 2017-07-20 21:17 Boruch Baum
2019-07-21 14:42 ` Lars Ingebrigtsen
0 siblings, 1 reply; 6+ messages in thread
From: Boruch Baum @ 2017-07-20 21:17 UTC (permalink / raw)
To: 27775
1] I find it preferable to have footnote text always left-justified to
the beginning of the first character of text, while emacs
auto-fills by default to column 1 and would require unwieldly
toggling set-fill-prefix whenever moving between text body and
footnotes.
Here's what I've done for myself, so far, and if you like it in
principle, you can have it. I'm available to tweak it some per your
suggestions and my ability (eg. modify the footnote functions
themselves instead advising after them).
2] Function `Footnote-add-footnote' in emacs25 defines an optional
`arg', but it is never used.
3] The current default value for variable `footnote-body-tag-spacing'
is 2, which is visually appealing, but doesn't persist upon
`fill-paragraph'. I've tried replacing the space character with a
non-breaking space (integer value 160), which you might want to
consider, but it visually looks like an underscore which is
un-appealing.
#+BEGIN_SRC emacs-lisp
(setq Footnote-align-to-fn-text t
body-auto-fill-prefix nil)
(defun Footnote-calc-fn-alignment-column()
(+ footnote-body-tag-spacing
(length
(concat footnote-start-tag footnote-end-tag
(Footnote-index-to-string
(caar (last footnote-text-marker-alist)))))))
(defun Footnote-align-to-fn()
(when Footnote-align-to-fn-text
(setq body-auto-fill-prefix fill-prefix
fill-prefix (make-string (Footnote-calc-fn-alignment-column) 32))))
(defun Footnote-align-to-body()
(when (not Footnote-align-to-fn-text)
(setq fill-prefix body-auto-fill-prefix)))
(defun Footnote-toggle-alignment()
(interactive)
(setq Footnote-align-to-fn-text (not Footnote-align-to-fn-text))
(when footnote-text-marker-alist
(if (>= (point) (cdr (first footnote-text-marker-alist)))
(if Footnote-align-to-fn-text
(Footnote-align-to-fn)
(Footnote-align-to-body))))
(if Footnote-align-to-fn-text
(message "Footnotes will left-align to footnote text")
(message "Footnotes will left-align to body text")))
(define-key footnote-mode-map
(kbd "q") 'Footnote-toggle-alignment)
(defadvice Footnote-add-footnote (after update-auto-fill-prefix activate)
(interactive)
(Footnote-align-to-fn))
(defadvice Footnote-back-to-message (after restore-auto-fill-prefix
activate)
(interactive)
(setq fill-prefix body-auto-fill-prefix))
#+END_SRC
--
hkp://keys.gnupg.net
CA45 09B5 5351 7C11 A9D1 7286 0036 9E45 1595 8BC0
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#27775: footnotes mode hanging indent [CODE INCLUDED]
2017-07-20 21:17 bug#27775: footnotes mode hanging indent [CODE INCLUDED] Boruch Baum
@ 2019-07-21 14:42 ` Lars Ingebrigtsen
2019-07-23 1:04 ` Noam Postavsky
0 siblings, 1 reply; 6+ messages in thread
From: Lars Ingebrigtsen @ 2019-07-21 14:42 UTC (permalink / raw)
To: Boruch Baum; +Cc: 27775
Boruch Baum <boruch_baum@gmx.com> writes:
> 1] I find it preferable to have footnote text always left-justified to
> the beginning of the first character of text, while emacs
> auto-fills by default to column 1 and would require unwieldly
> toggling set-fill-prefix whenever moving between text body and
> footnotes.
This seems to have changed since this bug was filed -- when
auto-filling, things seem to work as expected in the footnotes.
However, `M-q' didn't work in any sensible fashion:
Footnotes:
[1] Foo bar
and then hit `M-q' would result in
Footnotes: [1] Foo bar
so I've added a new fill-paragraph function to the Emacs trunk.
--
(domestic pets only, the antidote for overdose, milk.)
bloggy blog: http://lars.ingebrigtsen.no
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#27775: footnotes mode hanging indent [CODE INCLUDED]
2019-07-21 14:42 ` Lars Ingebrigtsen
@ 2019-07-23 1:04 ` Noam Postavsky
2019-07-23 11:03 ` Lars Ingebrigtsen
0 siblings, 1 reply; 6+ messages in thread
From: Noam Postavsky @ 2019-07-23 1:04 UTC (permalink / raw)
To: Lars Ingebrigtsen; +Cc: 27775, Boruch Baum
Lars Ingebrigtsen <larsi@gnus.org> writes:
> so I've added a new fill-paragraph function to the Emacs trunk.
Hmm, you did
(define-minor-mode footnote-mode
...
(setq-local fill-paragraph-function #'footnote--fill-paragraph)
But since footnote-mode is a minor mode, isn't it a mistake to just take
over fill-paragraph-function like that? What if the major mode has
installed some fill-paragraph-function?
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#27775: footnotes mode hanging indent [CODE INCLUDED]
2019-07-23 1:04 ` Noam Postavsky
@ 2019-07-23 11:03 ` Lars Ingebrigtsen
2019-07-25 12:16 ` Noam Postavsky
0 siblings, 1 reply; 6+ messages in thread
From: Lars Ingebrigtsen @ 2019-07-23 11:03 UTC (permalink / raw)
To: Noam Postavsky; +Cc: 27775, Boruch Baum
Noam Postavsky <npostavs@gmail.com> writes:
> Lars Ingebrigtsen <larsi@gnus.org> writes:
>
>> so I've added a new fill-paragraph function to the Emacs trunk.
>
> Hmm, you did
>
> (define-minor-mode footnote-mode
> ...
> (setq-local fill-paragraph-function #'footnote--fill-paragraph)
>
> But since footnote-mode is a minor mode, isn't it a mistake to just take
> over fill-paragraph-function like that? What if the major mode has
> installed some fill-paragraph-function?
Oh, yeah, that's true. How are minor modes supposed to do the paragraph
filling? Hm... For adaptive fill footnote does:
(unless adaptive-fill-function
;; nil and `ignore' have the same semantics for adaptive-fill-function,
;; but only `ignore' behaves correctly with add/remove-function.
(setq adaptive-fill-function #'ignore))
(remove-function (local 'adaptive-fill-function)
#'footnote--adaptive-fill-function)
[...]
(add-function :around (local 'adaptive-fill-function)
#'footnote--adaptive-fill-function)
and I guess it could do the same for fill-paragraph-function? (It
seems like a mouthful, though -- perhaps there should be a helper
function to do all this?)
Hm! Or will using fill-forward-paragraph-function do the right thing
both for adaptive filling and paragraph filling?
--
(domestic pets only, the antidote for overdose, milk.)
bloggy blog: http://lars.ingebrigtsen.no
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#27775: footnotes mode hanging indent [CODE INCLUDED]
2019-07-23 11:03 ` Lars Ingebrigtsen
@ 2019-07-25 12:16 ` Noam Postavsky
2019-07-25 17:39 ` Lars Ingebrigtsen
0 siblings, 1 reply; 6+ messages in thread
From: Noam Postavsky @ 2019-07-25 12:16 UTC (permalink / raw)
To: Lars Ingebrigtsen; +Cc: 27775, Boruch Baum
Lars Ingebrigtsen <larsi@gnus.org> writes:
> Hm! Or will using fill-forward-paragraph-function do the right thing
> both for adaptive filling and paragraph filling?
I think the footnote--adaptive-fill-function would still be needed,
because fill-forward-paragraph-function can't choose the fill prefix.
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#27775: footnotes mode hanging indent [CODE INCLUDED]
2019-07-25 12:16 ` Noam Postavsky
@ 2019-07-25 17:39 ` Lars Ingebrigtsen
0 siblings, 0 replies; 6+ messages in thread
From: Lars Ingebrigtsen @ 2019-07-25 17:39 UTC (permalink / raw)
To: Noam Postavsky; +Cc: 27775, Boruch Baum
Noam Postavsky <npostavs@gmail.com> writes:
> Lars Ingebrigtsen <larsi@gnus.org> writes:
>
>> Hm! Or will using fill-forward-paragraph-function do the right thing
>> both for adaptive filling and paragraph filling?
>
> I think the footnote--adaptive-fill-function would still be needed,
> because fill-forward-paragraph-function can't choose the fill prefix.
Right.
I've looked through the code to see if I could find any other minor
modes that does stuff with these variables, and I couldn't find them.
So I've just refactored out the dance footnote-mode does with
adaptive-fill-function into its own macro and done the same with
fill-paragraph-function.
If this is deemed generally useful, then we can move it somewhere more
central.
--
(domestic pets only, the antidote for overdose, milk.)
bloggy blog: http://lars.ingebrigtsen.no
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2019-07-25 17:39 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2017-07-20 21:17 bug#27775: footnotes mode hanging indent [CODE INCLUDED] Boruch Baum
2019-07-21 14:42 ` Lars Ingebrigtsen
2019-07-23 1:04 ` Noam Postavsky
2019-07-23 11:03 ` Lars Ingebrigtsen
2019-07-25 12:16 ` Noam Postavsky
2019-07-25 17:39 ` Lars Ingebrigtsen
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).