From: Michael Heerdegen <michael_heerdegen@web.de>
To: Augusto Stoffel <arstoffel@gmail.com>
Cc: "Basil L. Contovounesios" <contovob@tcd.ie>, 62068@debbugs.gnu.org
Subject: bug#62068: 29.0.60; map-elt and map-insert for nested structures
Date: Fri, 10 Mar 2023 02:18:35 +0100 [thread overview]
Message-ID: <87zg8lh09g.fsf@web.de> (raw)
In-Reply-To: <875ybafig1.fsf@gmail.com> (Augusto Stoffel's message of "Thu, 09 Mar 2023 09:16:30 +0100")
Augusto Stoffel <arstoffel@gmail.com> writes:
> I would like to suggest the following two functions to deal with nested
> maps. Let me know if you would like to see a patch.
>
> (defun map-elt-in (map keys &optional default)
> "Look up a nested sequence of KEYS in MAP and return its associated value.
> KEYS is any sequence type supported by `seq'. If a key is not
> found in any intermediate step, return DEFAULT, which defaults to
> nil."
> (catch 'map--break
> (seq-reduce (lambda (m k)
> (let ((v (map-elt m k 'map--default)))
> (if (eq v 'map--default)
> (throw 'map--break default)
> v)))
> keys
> map)))
Isn't this more or less the same as `map-nested-elt'?
Michael.
next prev parent reply other threads:[~2023-03-10 1:18 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2023-03-09 8:16 bug#62068: 29.0.60; map-elt and map-insert for nested structures Augusto Stoffel
2023-03-10 1:18 ` Michael Heerdegen [this message]
2023-03-10 7:09 ` Augusto Stoffel
2023-03-11 3:22 ` Michael Heerdegen
2023-03-11 7:51 ` Augusto Stoffel
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
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87zg8lh09g.fsf@web.de \
--to=michael_heerdegen@web.de \
--cc=62068@debbugs.gnu.org \
--cc=arstoffel@gmail.com \
--cc=contovob@tcd.ie \
/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 external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.