Fix issue where types were being displayed multiple times in notes (#175

) This affects the display of any new structured data
ahyatt · Sep 1, 2024 · 583f617 · 583f617
1 parent 12d2524
commit 583f617
Show file tree

Hide file tree

Showing 3 changed files with 18 additions and 5 deletions.
diff --git a/doc/ekg.org b/doc/ekg.org
@@ -73,6 +73,8 @@ triples library is already installed.
 (require 'ekg)
 #+end_src
 * Changelog
+** Version 0.6.4
+- Fix display of extended structured data in notes
 ** Version 0.6.3
 - Fix issue in trying to get a single-valued item to show up in the metadata line.
 - Remove the never-used named, email, and person schema.

diff --git a/doc/ekg.texi b/doc/ekg.texi
@@ -68,6 +68,7 @@ Installation
 
 Changelog
 
+* Version 0.6.4: Version 064. 
 * Version 0.6.3: Version 063. 
 * Version 0.6.2: Version 062. 
 * Version 0.6.1: Version 061. 
@@ -202,6 +203,7 @@ triples library is already installed.
 @chapter Changelog
 
 @menu
+* Version 0.6.4: Version 064. 
 * Version 0.6.3: Version 063. 
 * Version 0.6.2: Version 062. 
 * Version 0.6.1: Version 061. 
@@ -220,6 +222,14 @@ triples library is already installed.
 * Version 0.2: Version 02. 
 @end menu
 
+@node Version 064
+@section Version 0.6.4
+
+@itemize
+@item
+Fix display of extended structured data in notes
+@end itemize
+
 @node Version 063
 @section Version 0.6.3
 

diff --git a/ekg.el b/ekg.el
@@ -1827,11 +1827,12 @@ tags)."
                       (if (and (eq 'note (ekg-inline-type i))
                                (eq 'other (car (ekg-inline-command i))))
                           (cl-loop for type in
-                                   (seq-difference
-                                    (mapcar (lambda (prop)
-                                              (car (triples-combined-to-type-and-prop prop)))
-                                            (map-keys (ekg-note-properties note)))
-                                    template-types)
+                                   (seq-uniq
+                                    (seq-difference
+                                     (mapcar (lambda (prop)
+                                               (car (triples-combined-to-type-and-prop prop)))
+                                             (map-keys (ekg-note-properties note)))
+                                     template-types))
                                    when (fboundp (intern (format "ekg-display-note-%s" type)))
                                    collect (make-ekg-inline :type 'note
                                                             :command (list type)