~brettgilio/org-webring

00b1e8fe86689ea23a470bee985fa248c2a476c4 — Brett Gilio a month ago dfb513b
Work around let-binding bias.
3 files changed, 25 insertions(+), 20 deletions(-)

M README.md
M docs/README.org
M org-webring.el
M README.md => README.md +4 -3
@@ 222,9 222,10 @@ The maximum length of all syndicate titles.

### **Variable**: org-webring-override-time-locale

A convenient way to override the time encoding. Your selected
locale must be available on your machine, otherwise no effect will
be witnessed.
A convenient way to override the time encoding.

Your selected locale must be available on your machine, otherwise no
effect will be witnessed.

-   Type: `String`
-   Default Value: `env LANG`

M docs/README.org => docs/README.org +4 -3
@@ 162,9 162,10 @@ The maximum length of all syndicate titles.
- Default Value: ~25~

*** *Variable*: org-webring-override-time-locale
A convenient way to override the time encoding. Your selected
locale must be available on your machine, otherwise no effect will
be witnessed.
A convenient way to override the time encoding.

Your selected locale must be available on your machine, otherwise no
effect will be witnessed.
- Type: =String=
- Default Value: ~env LANG~


M org-webring.el => org-webring.el +17 -14
@@ 222,12 222,13 @@ set for the planet description."
  :type 'integer)

;;
;;; Variable Aliases
;;; Variables

(defvaralias 'org-webring-override-time-locale 'system-time-locale
  "A convenient way to override the time encoding. Your selected
locale must be available on your machine, otherwise no effect will
be witnessed.")
(defvar org-webring-override-time-locale nil
  "A convenient way to override the time encoding.

Your selected locale must be available on your machine, otherwise no
effect will be witnessed.")

;;
;;; Extraction


@@ 397,16 398,16 @@ was introduced in Emacs 27) isn't available.
Additionally, carry URL for error catching."
  (condition-case msg
      (apply #'encode-time (org-webring--parse-datetime date atom-p))
        (error
         (read-event
          (format
           "Warning: [%s] — RFC 2822, Report to URL Administrator
    (error
     (read-event
      (format
       "Warning: [%s] — RFC 2822, Report to URL Administrator
Encoding: %s
URL: %s
The POST will be skipped
—> Press any key to continue or C-g to QUIT."
           (cadr msg) date url))
         nil)))
       (cadr msg) date url))
     nil)))

(defun org-webring--pub-time (item)
  "Get ITEM's publication time."


@@ 492,7 493,8 @@ The POST will be skipped
;;;###autoload
(defun org-webring-generate-webring ()
  "Generate the entire webring and return it as HTML."
  (let* ((unique-urls (seq-uniq org-webring-urls))
  (let* ((system-time-locale org-webring-override-time-locale)
         (unique-urls (seq-uniq org-webring-urls))
         (items (mapcan #'org-webring--get-items-from-url unique-urls))
	 (articles
	  (cl-multiple-value-bind (pinned normal)


@@ 539,7 541,8 @@ The POST will be skipped
;;;###autoload
(defun org-webring-generate-planet ()
  "Generate the entire planet with syndicates list and return it as HTML."
  (let* ((org-webring-items-per-source most-positive-fixnum)
  (let* ((system-time-locale org-webring-override-time-locale)
         (org-webring-items-per-source most-positive-fixnum)
         (unique-urls (seq-uniq org-webring-urls))
         (items (mapcan #'org-webring--get-items-from-url unique-urls))
         (items-filtered (seq-filter


@@ 556,7 559,7 @@ The POST will be skipped
     `(section :class "org-webring-planet"
	       ,@(when org-webring-planet-display-description
		   `((h4 :class "org-webring-description"
                      ,(print org-webring-planet-description))))
                         ,(print org-webring-planet-description))))
               (p :class "org-webring-attribution"
		  ,@(when org-webring-display-generation-time
		      (list