diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-08-07 17:21:45 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-08-07 17:21:45 +0200 |
| commit | 7b51ffda41dbf40ed5c5830b4911c5a6cab68d4d (patch) | |
| tree | 6c4122291973dd899b0f2383bdb9a04b272d0532 /lisp | |
| parent | 23280f33214b2990de673376e770bdbc7efec57f (diff) | |
profile - small cleanup of fields-insert
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-profile.el | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 260c2d3..0ac1c04 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -267,23 +267,15 @@ 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 "_ %s " (car field)) - (make-string (- (+ 1 left-width) (length (car field))) ?_) + (format "_ '%-54s " (car field)) + ;; (make-string (- (+ 1 left-width) (length (car field))) ?_) (format " :: %s" (cadr field))) - ;; (make-string (- (+ 1 right-width) (length (cdr field))) ?_) - ;; " |") - field)) ; nil)) ; hack to make links tabstops + field)) ; hack to make links tabstops fields ""))) (defun mastodon-profile--get-statuses-pinned (account) |