branch: elpa/sesman
commit a428dc955cd257cc9ac50d286c551c6809c2160b
Author: Vitalie Spinu <[email protected]>
Commit: Vitalie Spinu <[email protected]>
Improve readable of sesman-grouped-links
---
sesman.el | 17 +++++++++--------
1 file changed, 9 insertions(+), 8 deletions(-)
diff --git a/sesman.el b/sesman.el
index fe777dca0d..a2438afe83 100644
--- a/sesman.el
+++ b/sesman.el
@@ -635,18 +635,19 @@ If AS-STRING is non-nil, return an equivalent string
representation."
(assoc type out-rel)
(assoc type out))))
(when entry
- (setcdr entry (cons val (cdr entry))))))
+ (setcdr entry (cons link (cdr entry))))))
links)
(let ((out (delq nil (mapcar (lambda (el) (and (cdr el) el)) out)))
(out-rel (delq nil (mapcar (lambda (el) (and (cdr el) el))
out-rel))))
(if as-string
- (let ((fmt-fn (lambda (link-vals)
- (let ((type (car link-vals)))
- (mapconcat (lambda (v)
- (format "%s(%s)"
- (or (plist-get
sesman--cxt-abbrevs type) type)
- (sesman--abbrev-path-maybe
v)))
- (cdr link-vals)
+ (let ((fmt-fn (lambda (typed-links)
+ (let* ((type (car typed-links))
+ (short-type (or (plist-get
sesman--cxt-abbrevs type) type)))
+ (mapconcat (lambda (lnk)
+ (format "%s(%s)" short-type
+ (sesman--abbrev-path-maybe
+ (sesman--lnk-value lnk))))
+ (cdr typed-links)
", ")))))
(if out-rel
(concat (mapconcat fmt-fn out-rel ", ")
