aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-08-07 20:52:18 +0200
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-08-07 20:52:18 +0200
commit48f6f77cbffcdf8bfdc4ad6bb23d6e3dd7d67dda (patch)
treedd65223c496b4c42b6b806ebee268e49b30a4411
parentff4176e3cb25a9b61e157a025a5f6f195f4f79a9 (diff)
Revert "profile - small cleanup of fields-insert"
This reverts commit 7b51ffda41dbf40ed5c5830b4911c5a6cab68d4d.
-rw-r--r--lisp/mastodon-profile.el14
1 files changed, 11 insertions, 3 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index 0ac1c04..260c2d3 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -267,15 +267,23 @@ Returns a list of lists."
(defun mastodon-profile--fields-insert (fields)
"Format and insert field pairs (a.k.a profile metadata) in FIELDS."
(let* ((car-fields (mapcar 'car fields))
+ ;; (cdr-fields (mapcar 'cadr fields))
+ ;; (cdr-fields-rendered
+ ;; (list
+ ;; (mapcar (lambda (x)
+ ;; (mastodon-tl--render-text x nil))
+ ;; cdr-fields)))
(left-width (car (sort (mapcar 'length car-fields) '>))))
;; (right-width (car (sort (mapcar 'length cdr-fields) '>))))
(mapconcat (lambda (field)
(mastodon-tl--render-text
(concat
- (format "_ '%-54s " (car field))
- ;; (make-string (- (+ 1 left-width) (length (car field))) ?_)
+ (format "_ %s " (car field))
+ (make-string (- (+ 1 left-width) (length (car field))) ?_)
(format " :: %s" (cadr field)))
- field)) ; hack to make links tabstops
+ ;; (make-string (- (+ 1 right-width) (length (cdr field))) ?_)
+ ;; " |")
+ field)) ; nil)) ; hack to make links tabstops
fields "")))
(defun mastodon-profile--get-statuses-pinned (account)