ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Don’t show empty tags, discard junk

Browse source
This commit is contained in:
Tom Willemse 2016-10-21 14:28:55 +02:00
parent c91a3efa4e
commit bf5fac97ae
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
mowedline/.config/mowedline/init.org
View file

@ -52,9 +52,9 @@ mowedline.
(list '(color "#ececec" font "FontAwesome-10" "") (list '(color "#ececec" font "FontAwesome-10" "")
(string-append " " (list->string name-list) " "))) (string-append " " (list->string name-list) " ")))
((#\- . _) '((color "#bfbfbf" font "FontAwesome-10" "") " ")) ((#\- . _) '((color "#bfbfbf" font "FontAwesome-10" "") " "))
((#\. . _) '((color "#969696" font "FontAwesome-10" "") " "))
((#\: . _) '((color "#969696" font "FontAwesome-10" "") " ")) ((#\: . _) '((color "#969696" font "FontAwesome-10" "") " "))
((#\! . _) '((color "#a85454" font "FontAwesome-10" "") " ")))) ((#\! . _) '((color "#a85454" font "FontAwesome-10" "") " "))
(_ '())))
(define (tag-list-display tag-list) (define (tag-list-display tag-list)
(map tag-display tag-list)) (map tag-display tag-list))