From 120f940db54fd1664eaed7cc4c6381c42546f031 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 12 Dec 2023 21:12:17 +0200 Subject: Add gnosis--get-name --- gnosis.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/gnosis.el b/gnosis.el index 765e742..565e837 100644 --- a/gnosis.el +++ b/gnosis.el @@ -62,6 +62,9 @@ (defun gnosis--get-id (table value id) "Get VALUE for question ID from TABLE." (caar (gnosis--select table value `(= id ,id)))) +(defun gnosis--get-name (table value name) + "From TABLE get VALUE for NAME." + (caar (gnosis--select table value `(= name ,name)))) (defun gnosis--display-question (id) "Display main row for question ID." -- cgit v1.2.3