From f1c3473e5b6d20c80b2f2f2ae569748fc247fccd Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Wed, 12 Nov 2014 22:15:16 -0500 Subject: Use consistent tag formatting Puts `mapconcat' to work by defining a helper function `sx-question--tag-format' and `concat'ing them with ` '. Simpler, more maintainable construction. --- sx-question.el | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'sx-question.el') diff --git a/sx-question.el b/sx-question.el index d3fd79f..0142929 100644 --- a/sx-question.el +++ b/sx-question.el @@ -73,6 +73,10 @@ With optional argument predicate, use it instead of `<'." (cdr (assoc property x)) (cdr (assoc property y)))) +(defun sx-question--tag-format (tag) + "Formats TAG for display" + (concat "[" tag "]")) + (provide 'sx-question) ;;; sx-question.el ends here -- cgit v1.2.3