bram/gists
1
0
Fork 0
Code Issues Pull requests Activity

Proofread

Browse source
This commit is contained in:
Bram Schoenmakers 2024-04-29 22:55:43 +02:00
parent a8f7732067
commit fd3d099105
Signed by: bram
GPG key ID: 0CCD19DFDC63258F
2 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gists.org
View file

@ -946,7 +946,7 @@ Which covers my (potential) GPG/SSH usage within Emacs. Now, anytime a I perform
* elfeed configuration :emacs:
#+begin_src elisp :tangle gists/elfeed.el
;; For constructing relative date strings from a timestamp.
;; For constructing relative date strings from timestamps.
;; Clone from https://github.com/rougier/relative-date
(use-package relative-date
:ensure nil
@ -1002,7 +1002,7 @@ Which covers my (potential) GPG/SSH usage within Emacs. Now, anytime a I perform
;; The following functions is for easy navigation, taken from
;; Karthinks blog: https://karthinks.com/software/lazy-elfeed/
(defun bram85-elfeed-scroll-up-command (&optional arg)
"Scroll up or go to next feed item in Elfeed"
"Scroll up or go to the next feed item in elfeed."
(interactive "^P")
(let ((scroll-error-top-bottom nil))
(condition-case-unless-debug nil
@ -1010,7 +1010,7 @@ Which covers my (potential) GPG/SSH usage within Emacs. Now, anytime a I perform
(error (elfeed-show-next)))))
(defun bram85-elfeed-scroll-down-command (&optional arg)
"Scroll down or go to prev feed item in Elfeed"
"Scroll down or go to the previous feed item in elfeed."
(interactive "^P")
(let ((scroll-error-top-bottom nil))
(condition-case-unless-debug nil
@ -1049,7 +1049,7 @@ Which covers my (potential) GPG/SSH usage within Emacs. Now, anytime a I perform
(seq-difference (elfeed-entry-tags entry) bram85-elfeed-hidden-tags)))
(defun bram85-elfeed-search-print-entry (entry)
"Print elfeed ENTRY to the buffer."
"Print the elfeed ENTRY to the buffer."
(let ((format-time-string-orig (symbol-function #'format-time-string)))
;; Make sure that elfeed-search-format-date calls relative-date
;; instead of format-time-string, if the format is "rel".
@ -1103,8 +1103,8 @@ Which covers my (potential) GPG/SSH usage within Emacs. Now, anytime a I perform
(defun bram85-elfeed-mark-read (entries tags)
"Mark the ENTRIES as read and record the read date with some delay.
It is considered marked read if the 'unread' tag is part of
TAGS to be removed from ENTRIES."
It is considered as marked read if the 'unread' tag is part
of the TAGS to be removed from the ENTRIES."
(when (member 'unread tags)
(let* ((date (format-time-string "%FT%T%z"))
(entry-unread-p (lambda (e) (elfeed-tagged-p 'unread e)))

12
gists/elfeed.el
View file

@ -1,4 +1,4 @@
;; For constructing relative date strings from a timestamp.
;; For constructing relative date strings from timestamps.
;; Clone from https://github.com/rougier/relative-date
(use-package relative-date
:ensure nil
@ -54,7 +54,7 @@
;; The following functions is for easy navigation, taken from
;; Karthinks blog: https://karthinks.com/software/lazy-elfeed/
(defun bram85-elfeed-scroll-up-command (&optional arg)
"Scroll up or go to next feed item in Elfeed"
"Scroll up or go to the next feed item in elfeed."
(interactive "^P")
(let ((scroll-error-top-bottom nil))
(condition-case-unless-debug nil
@ -62,7 +62,7 @@
(error (elfeed-show-next)))))
(defun bram85-elfeed-scroll-down-command (&optional arg)
"Scroll down or go to prev feed item in Elfeed"
"Scroll down or go to the previous feed item in elfeed."
(interactive "^P")
(let ((scroll-error-top-bottom nil))
(condition-case-unless-debug nil
@ -101,7 +101,7 @@
(seq-difference (elfeed-entry-tags entry) bram85-elfeed-hidden-tags)))
(defun bram85-elfeed-search-print-entry (entry)
"Print elfeed ENTRY to the buffer."
"Print the elfeed ENTRY to the buffer."
(let ((format-time-string-orig (symbol-function #'format-time-string)))
;; Make sure that elfeed-search-format-date calls relative-date
;; instead of format-time-string, if the format is "rel".
@ -155,8 +155,8 @@
(defun bram85-elfeed-mark-read (entries tags)
"Mark the ENTRIES as read and record the read date with some delay.
It is considered marked read if the 'unread' tag is part of
TAGS to be removed from ENTRIES."
It is considered as marked read if the 'unread' tag is part
of the TAGS to be removed from the ENTRIES."
(when (member 'unread tags)
(let* ((date (format-time-string "%FT%T%z"))
(entry-unread-p (lambda (e) (elfeed-tagged-p 'unread e)))