From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Stefan Huchler Newsgroups: gmane.emacs.devel Subject: Re: small seq function for json data Date: Tue, 18 Oct 2016 05:04:43 +0200 Message-ID: <87d1iye4s4.fsf@jupiter.lan> References: <871szglv3y.fsf@jupiter.lan> <87twcbbcgd.fsf@petton.fr> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: blaine.gmane.org 1476759970 18210 195.159.176.226 (18 Oct 2016 03:06:10 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Tue, 18 Oct 2016 03:06:10 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.5 (gnu/linux) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Oct 18 05:06:05 2016 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bwKiv-0002gv-He for ged-emacs-devel@m.gmane.org; Tue, 18 Oct 2016 05:05:53 +0200 Original-Received: from localhost ([::1]:38741 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bwKix-00064w-B0 for ged-emacs-devel@m.gmane.org; Mon, 17 Oct 2016 23:05:55 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:33278) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bwKiO-00064q-0a for emacs-devel@gnu.org; Mon, 17 Oct 2016 23:05:20 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bwKiJ-0001pw-KI for emacs-devel@gnu.org; Mon, 17 Oct 2016 23:05:20 -0400 Original-Received: from [195.159.176.226] (port=52964 helo=blaine.gmane.org) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1bwKiJ-0001pP-E6 for emacs-devel@gnu.org; Mon, 17 Oct 2016 23:05:15 -0400 Original-Received: from list by blaine.gmane.org with local (Exim 4.84_2) (envelope-from ) id 1bwKhy-0003jU-8m for emacs-devel@gnu.org; Tue, 18 Oct 2016 05:04:54 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 39 Original-X-Complaints-To: usenet@blaine.gmane.org Cancel-Lock: sha1:7cRCitOncNQBOgbMI2tNsxf+8k0= X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 195.159.176.226 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.org gmane.emacs.devel:208385 Archived-At: Nicolas Petton writes: > Stefan Huchler writes: > >> Hello, > > Hi Stefan, > >> So inspired by let-alist I wrote a more powerful version that supports >> also vector which is also used in json messages. >> >> (setq x '((foo . [((bar . "string of interest"))]))) >> >> (defun sbit-seq-get (seq path) >> (cond ((null path) seq) >> ((listp seq) >> (sbit-seq-get (cdr (assoc (car path) seq)) (cdr path)) >> ) >> ((vectorp seq) >> (sbit-seq-get (elt seq (car path)) (cdr path)) >> ) >> (t seq))) >> >> (sbit-seq-get x '(foo 0 bar)) > > Did you have a look at `map-nested-elt'? I often use it to access JSON > data. Well, as far as I can tell it does what I want to do (and better), now you make me wanna update to emacs 25.1 (dont tease me). I mean I have emacs 25.1 installed paralell anyway, but dont want to fiddle with the exwm package in nixos, in which I live :) Whatever not that important for now I guess but it is in upstream good to know, then I have to not write a bug to add somethnig like that in seq.el.