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