[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ebdb cbaa04b 10/13: Fix compose fields for the HTML5 fr
From: |
Eric Abrahamsen |
Subject: |
[elpa] externals/ebdb cbaa04b 10/13: Fix compose fields for the HTML5 freeform formatter |
Date: |
Tue, 15 Jan 2019 11:15:52 -0500 (EST) |
branch: externals/ebdb
commit cbaa04b15417f84be2ce25446e5a8977774bb76e
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
Fix compose fields for the HTML5 freeform formatter
* ebdb-html.el (ebdb-fmt-compose-fields): This didn't need to be so
complicated; also you're allowed to have multiple <dd> elements for
a single <dt> element.
---
ebdb-html.el | 46 ++++++++++++++++++++--------------------------
1 file changed, 20 insertions(+), 26 deletions(-)
diff --git a/ebdb-html.el b/ebdb-html.el
index 6a85ef1..5d423b4 100644
--- a/ebdb-html.el
+++ b/ebdb-html.el
@@ -67,33 +67,27 @@
(cl-defmethod ebdb-fmt-compose-fields ((fmt ebdb-html-formatter-html5)
(rec ebdb-record)
&optional field-list _depth)
+ "This particular implementation uses description lists (<dl>)."
(when field-list
- (let ((field-pairs
- (mapcar
- (pcase-lambda ((map style inst class))
- ;; Field labels,
- (cons (ebdb-fmt-field-label
- fmt
- (if (= 1 (length inst))
- (car inst)
- class)
- style
- rec)
- ;; and fields.
- (mapconcat
- #'identity
- (mapcar (lambda (f)
- (ebdb-fmt-field fmt f style rec))
- inst)
- ", ")))
- field-list)))
- (concat
- "<dl>\n"
- (mapconcat
- (pcase-lambda (`(,label . ,field))
- (format "<dt>%s</dt><dd>%s</dd>" label field))
- field-pairs "\n")
- "</dl>\n"))))
+ (concat
+ "<dl>\n"
+ (mapconcat
+ (pcase-lambda ((map style inst class))
+ (concat
+ (format "<dt>%s</dt>" (ebdb-fmt-field-label
+ fmt
+ (if (= 1 (length inst))
+ (car inst)
+ class)
+ style
+ rec))
+ (mapconcat
+ (lambda (f)
+ (format "<dd>%s</dd>" (ebdb-fmt-field fmt f style rec)))
+ inst
+ "\n")))
+ field-list "\n")
+ "</dl>\n")))
(cl-defmethod ebdb-fmt-field ((_fmt ebdb-html-formatter)
(field ebdb-field-mail)
- [elpa] externals/ebdb updated (3289ad4 -> 753c049), Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb 3cba3d7 01/13: Rejigger insertion of newlines in record formatting, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb f133aef 03/13: Docstring fix for ebdb-mail, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb 5ef1773 04/13: Allow overwriting of previous formatting buffers, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb eec63c8 07/13: Provide basic HTML5 freeform formatter, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb 980927f 02/13: Switch from cond to pcase in ebdb-record-field, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb 6dad4c1 09/13: Allow 'mail-primary as an argument to ebdb-record-field, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb 4625970 11/13: Move map require from ebdb-com.el to ebdb.el, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb 753c049 13/13: Bump to 0.6.3, flush recent changes, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb 65247f6 08/13: Make csv-mode dependency optional, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb cbaa04b 10/13: Fix compose fields for the HTML5 freeform formatter,
Eric Abrahamsen <=
- [elpa] externals/ebdb adb60dd 05/13: Refactor formatter classes, add tabular formatters, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb 7a19553 06/13: Shift base ebdb-fmt-record implementation to ebdb-formatter-freeform, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb 4f4596c 12/13: Re-absorb ebdb-counsel into main package, Eric Abrahamsen, 2019/01/15