sqrtminusone/elfeed-summary
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/elfeed-summary.git synced 2025-12-11 18:13:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: lint

Browse source
This commit is contained in:
Pavel Korytov 2022-03-19 22:35:16 +03:00
parent 012670274e
commit f667d680d6
1 changed files with 21 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
elfeed-summary.el
View file

@ -622,18 +622,17 @@ DATA is a `<feed-group-params>' form as described in
(title (or (plist-get (elfeed-feed-meta feed) :title) (title (or (plist-get (elfeed-feed-meta feed) :title)
(elfeed-feed-title feed) (elfeed-feed-title feed)
(elfeed-feed-id feed))) (elfeed-feed-id feed)))
(text-format-string
(concat "%" (number-to-string elfeed-summary--unread-padding)
"d / %-" (number-to-string elfeed-summary--total-padding)
"d "))
(text (concat (text (concat
(propertize (propertize
(format (concat "%" (number-to-string (format text-format-string
elfeed-summary--unread-padding)
"d / %-" (number-to-string
elfeed-summary--total-padding)
"d ")
(alist-get 'unread data) (alist-get 'total data)) (alist-get 'unread data) (alist-get 'total data))
'face 'face (if (< 0 (alist-get 'unread data))
(if (< 0 (alist-get 'unread data)) 'elfeed-summary-count-face-unread
'elfeed-summary-count-face-unread 'elfeed-summary-count-face))
'elfeed-summary-count-face))
(propertize title 'face (alist-get 'faces data))))) (propertize title 'face (alist-get 'faces data)))))
(widget-create 'push-button (widget-create 'push-button
:notify (lambda (widget &rest _) :notify (lambda (widget &rest _)
@ -660,13 +659,13 @@ DATA is a `<feed-group-params>' form as described in
DATA is a `<search-group-params>' form as described in the DATA is a `<search-group-params>' form as described in the
`elfeed-summary--get-data'." `elfeed-summary--get-data'."
(let* ((search-data (alist-get 'params data)) (let* ((search-data (alist-get 'params data))
(text-format-string
(concat "%" (number-to-string elfeed-summary--unread-padding)
"d / %-" (number-to-string elfeed-summary--total-padding)
"d "))
(text (concat (text (concat
(propertize (propertize
(format (concat "%" (number-to-string (format text-format-string
elfeed-summary--unread-padding)
"d / %-" (number-to-string
elfeed-summary--total-padding)
"d ")
(alist-get 'unread data) (alist-get 'total data)) (alist-get 'unread data) (alist-get 'total data))
'face 'face
(if (< 0 (alist-get 'unread data)) (if (< 0 (alist-get 'unread data))
@ -676,7 +675,13 @@ DATA is a `<search-group-params>' form as described in the
(alist-get :title search-data) (alist-get :title search-data)
'face 'face
(alist-get 'faces data))))) (alist-get 'faces data)))))
(widget-create 'push-button
:notify (lambda (widget &rest _)
(elfeed)
(elfeed-search-set-filter
(widget-get :filter)))
:filter (alist-get search-data :filter)
text)
(widget-insert "\n"))) (widget-insert "\n")))
(defun elfeed-summary--render-group (data) (defun elfeed-summary--render-group (data)
@ -801,7 +806,7 @@ TREE is a form such as returned by `elfeed-summary--get-data'."
The buffer displays a list of feeds, as set up by the The buffer displays a list of feeds, as set up by the
`elfeed-summary-settings' variable." `elfeed-summary-settings' variable."
(interactive) (interactive)
(add-hook 'elfeed-update-init-hooks 'elfeed-summary--refresh) (add-hook 'elfeed-update-init-hooks #'elfeed-summary--refresh)
(when-let ((buffer (get-buffer elfeed-summary-buffer))) (when-let ((buffer (get-buffer elfeed-summary-buffer)))
(kill-buffer buffer)) (kill-buffer buffer))
(let ((buffer (get-buffer-create elfeed-summary-buffer))) (let ((buffer (get-buffer-create elfeed-summary-buffer)))