From: Akib Azmain Turja <akib@disroot.org>
To: Philip Kaludercic <philipk@posteo.net>
Cc: Emacs Developer List <emacs-devel@gnu.org>
Subject: Re: [NonGNU ELPA] 11 new packages!
Date: Mon, 28 Nov 2022 01:55:29 +0600 [thread overview]
Message-ID: <87a64cmatq.fsf@disroot.org> (raw)
In-Reply-To: <8735a46cls.fsf@posteo.net> (Philip Kaludercic's message of "Sun, 27 Nov 2022 08:11:27 +0000")
[-- Attachment #1: Type: text/plain, Size: 7313 bytes --]
Philip Kaludercic <philipk@posteo.net> writes:
> Akib Azmain Turja <akib@disroot.org> writes:
>
>>> ;;;###autoload
>>> (defun gnu-indent-region (beg end)
>>> @@ -88,14 +87,15 @@ When called non-interactively, indent text between BEG and END."
>>> (send-region process beg end)
>>> (process-send-eof process)
>>> (redisplay)
>>> - (while (process-live-p process)
>>> - (sleep-for 0.01))
>>> + (while (accept-process-output process nil 10))
>>
>> MILLISEC argument is obsolete, I used SECONDS instead.
>
> Actually, this change might have been pointless. I misremembed the
> warning from (elisp) Accepting Output, that said you shouldn't combine
> `accept-process-output' and `process-live-p', but what you were doing
> was probably harmless.
>
> I guess the real question is why you don't use a synchronous process?
> indent usually isn't that slow.
>
I don't like synchronous processes, they block Emacs completely.
>>> (error "GNU Indent exited with non-zero status"))
>>> (save-restriction
>>> (let ((inhibit-read-only t))
>>> (narrow-to-region beg end)
>>> + ;; Perhaps something should be done to try an preserve
>>> + ;; the point after indentation?
>>> (insert-file-contents temp-file nil nil nil
>>> t))))
>>
>> On my computer, the point doesn't move relative to text, because the
>> fifth argument to insert-file-contents is t.
>
> My bad then.
>
>>> (delete-file temp-file)))
>>> @@ -108,11 +108,24 @@ When called non-interactively, indent text between BEG and END."
>>> (interactive)
>>> (gnu-indent-region (point-min) (point-max)))
>>>
>>> +;; A little suggestion
>>> +;;;###autoload
>>> +(defun gnu-indent-defun-or-fill (arg)
>>> + "Indent current function with GNU Indent.
>>> +If point is in a comment, call `fill-paragraph' instead. A
>>> +prefix argument ARG is passed to `fill-paragraph'."
>>> + (interactive "P")
>>> + (if (nth 8 (syntax-ppss)) ;if in a comment
>>> + (fill-paragraph arg)
>>> + (let ((bounds (bounds-of-thing-at-point 'defun)))
>>> + (if (consp bounds)
>>> + (gnu-indent-region (car bounds) (cdr bounds))
>>> + (user-error "No defun at point")))))
>>> +
>>
>> Great idea. But would it cause problem to assign copyright if I take
>> your change? (AFAIK you've completed paperwork, but in this case you're
>> not contributing to FSF-copyrighted code, so is this change covered by
>> your paperwork? Right now, no, you're the copyright holder. (According
>> to Section 2 of copyright assignment agreement sent to me.))
>
> I don't think there should be an issue, as we want to add the package to
> NonGNU ELPA. If the package is later moved to GNU ELPA, then my CA
> should cover it.
>
>>> devhelp:
>>>
>>> diff --git a/devhelp.el b/devhelp.el
>>> index 6b3d9a1ce9..05aeb1e18e 100644
>>> --- a/devhelp.el
>>> +++ b/devhelp.el
>>> @@ -48,6 +48,10 @@
>>> ;; "~/.guix-profile/share/doc/"
>>> ;; "~/.guix-profile/share/gtk-doc/html/"))
>>>
>>> +;; Do you think it makes sense to automatically detect this (if the
>>> +;; user has a ~/.guix-profile directory) and make the changes to the
>>> +;; default value?
>>> +
>>
>> Yes, it makes sense. But I didn't find any way to detected the
>> directories, except heuristics.
>
> What would the problem be with checking the existence of these specific
> (or other well known directories)?
>
> (append [default value]
> (and (file-exists-p "~/.guix-profile/share/doc/"
> (list "~/.guix-profile/share/doc/")))
> (and (file-exists-p "~/.guix-profile/share/gtk-doc/html/")
> (list "~/.guix-profile/share/gtk-doc/html/"))))
>
I like this approach. Thanks.
>>> @@ -219,6 +224,7 @@ If a single file was opened, only show that book's table of contents."
>>> See `devhelp-toc' for more details."
>>> (let ((inhibit-read-only t))
>>> (erase-buffer)
>>> + ;; Why not prepare the document in SXML and then use `dom-print'?
>>> (insert
>>> "<html><head><title>Table of contents</title></head><body><ul>"
>>> (let ((book-tocs
>>
>> Hmm, that would be a cleaner approach. Now I need to research the
>> format of SXML.
>
> This gives a brief demonstration:
>
> (dom-print '(tag ((key . "value")) (sub-tag () "body")))
> ;; Output: <tag key="value"><sub-tag>body</sub-tag></tag>
>
>>> (defgroup why-this nil
>>> "Show why the current line contains this."
>>> :group 'tools
>>> @@ -64,6 +68,7 @@ the first argument is the command (which is a symbol):
>>> `:author' Name of the author.
>>> `:time' Time of change (local).
>>> `:desc' Single line description of change."
>>> + ;; Would it make sense to use a `cl-defstruct'?
>>> :type 'hook
>>> :options (list #'why-this-git
>>> #'why-this-hg)
>>
>> Maybe. But I think the plist approach is simpler and good enough.
>
> My fear is that it is less robust, but my fear is probably unreasonable.
>
>>> @@ -364,6 +370,7 @@ TIME-FORMAT is used to format data."
>>> 'solaire-region-face
>>> 'region))
>>> ('line
>>> + ;; Looks like a `cond' to me
>>> (if (bound-and-true-p hl-line-mode)
>>> (if (bound-and-true-p solaire-mode)
>>> 'solaire-hl-line-face
>>
>> Yes, but I think its more efficient. (IIUC cond would test hl-line-mode
>> before returning why-this-face.)
>
> I don't think there would be a big difference. The transformation I had
> in mind was something along these lines:
>
> (if foo (if bar (if baz 0 1) 2) 3)
> ⇝
> (cond ((not foo) 3)
> ((not bar) 2)
> ((not baz) 1)
> (t 0))
>
At the first glance, I though your code is simply wrong. But after
reading more attentively, it tells me you're actually a genius.
>>> @@ -537,6 +544,11 @@ Actually the supported backend is returned."
>>> (* (- (nth i b-color)
>>> (nth i a-color))
>>> ratio)))))
>>> + ;; Note that RGB interpolation doesn't always behave the way you
>>> + ;; think it does. You'd have to convert it into some other color
>>> + ;; space like CIELAB to get perceptual mixing right (but even that
>>> + ;; is trying because it requires some kind of a white-reference
>>> + ;; point).
>>> (color-rgb-to-hex (funcall mix 0)
>>> (funcall mix 1)
>>> (funcall mix 2)
>>
>> Any edge case of my code?
>
> Not an edge-case, just a mathematical/physical problem. Maybe
> https://www.alanzucconi.com/2016/01/06/colour-interpolation/ can help
> explain what I had in mind (it also indicates that interpolation in the
> HSV color space might be good enough of a fix).
--
Akib Azmain Turja, GPG key: 70018CE5819F17A3BBA666AFE74F0EFA922AE7F5
Fediverse: akib@hostux.social
Codeberg: akib
emailselfdefense.fsf.org | "Nothing can be secure without encryption."
[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 832 bytes --]
next prev parent reply other threads:[~2022-11-27 19:55 UTC|newest]
Thread overview: 57+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-11-14 7:42 [NonGNU ELPA] 11 new packages! Akib Azmain Turja
2022-11-15 17:42 ` Akib Azmain Turja
2022-11-15 19:53 ` Filipp Gunbin
2022-11-16 12:22 ` Akib Azmain Turja
2022-11-16 16:53 ` Eli Zaretskii
2022-11-16 17:43 ` Akib Azmain Turja
2022-11-16 19:47 ` Eli Zaretskii
2022-11-17 14:27 ` Akib Azmain Turja
2022-11-17 18:41 ` Stefan Monnier
2022-11-17 18:51 ` Yuan Fu
2022-11-24 23:38 ` Richard Stallman
2022-11-17 18:56 ` Eli Zaretskii
2022-11-15 19:57 ` Philip Kaludercic
2022-11-16 12:25 ` Akib Azmain Turja
2022-11-16 16:07 ` Philip Kaludercic
2022-11-16 17:45 ` Akib Azmain Turja
2022-11-16 18:19 ` Philip Kaludercic
2022-11-17 14:28 ` Akib Azmain Turja
2022-11-21 18:32 ` Philip Kaludercic
2022-11-22 15:20 ` Akib Azmain Turja
2022-11-22 17:07 ` Philip Kaludercic
2022-11-22 17:42 ` Akib Azmain Turja
2022-11-25 8:29 ` Akib Azmain Turja
2022-11-25 16:32 ` Philip Kaludercic
2022-11-25 17:14 ` Akib Azmain Turja
2022-11-22 21:16 ` Stefan Monnier
2022-11-25 7:14 ` Philip Kaludercic
2022-11-25 7:22 ` Philip Kaludercic
2022-11-25 12:45 ` Akib Azmain Turja
2022-11-25 13:07 ` Akib Azmain Turja
2022-11-25 17:16 ` Akib Azmain Turja
2022-11-25 17:31 ` Philip Kaludercic
2022-11-26 5:53 ` Akib Azmain Turja
2022-11-26 20:12 ` Stefan Monnier
2022-11-25 19:07 ` Philip Kaludercic
2022-11-26 7:49 ` Akib Azmain Turja
2022-11-27 8:11 ` Philip Kaludercic
2022-11-27 19:22 ` Akib Azmain Turja
2022-11-27 19:55 ` Akib Azmain Turja [this message]
2022-11-27 20:30 ` Philip Kaludercic
2022-11-26 18:44 ` Akib Azmain Turja
2022-11-26 20:07 ` Philip Kaludercic
2022-11-26 20:17 ` Philip Kaludercic
2022-11-26 21:12 ` Akib Azmain Turja
2022-11-27 11:45 ` Philip Kaludercic
2022-11-27 17:04 ` Akib Azmain Turja
2022-11-27 20:26 ` Philip Kaludercic
2022-11-28 19:07 ` Akib Azmain Turja
2022-11-28 19:42 ` Philip Kaludercic
2022-11-28 20:32 ` Akib Azmain Turja
2022-11-28 20:57 ` Stefan Monnier
2022-11-27 18:40 ` [NonGNU ELPA] 12 " Akib Azmain Turja
2022-11-27 20:36 ` Philip Kaludercic
2022-11-27 21:11 ` Akib Azmain Turja
2022-11-27 6:40 ` [NonGNU ELPA] 11 " Akib Azmain Turja
2022-11-19 12:05 ` Richard Stallman
2022-11-19 12:17 ` Philip Kaludercic
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87a64cmatq.fsf@disroot.org \
--to=akib@disroot.org \
--cc=emacs-devel@gnu.org \
--cc=philipk@posteo.net \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).