~brettgilio/org-webring

Make attributions constant v1 APPLIED

Ivan Sokolov: 1
 Make attributions constant

 3 files changed, 8 insertions(+), 28 deletions(-)
Export patchset (mbox)
How do I use this?

Copy & paste the following snippet into your terminal to import this patchset into git:

curl -s https://lists.sr.ht/~brettgilio/org-webring/patches/12052/mbox | git am -3
Learn more about email & git
View this thread in the archives

[PATCH] Make attributions constant Export this patch

---
 README.md      | 10 ----------
 README.org     |  7 -------
 org-webring.el | 19 ++++++++-----------
 3 files changed, 8 insertions(+), 28 deletions(-)

diff --git a/README.md b/README.md
index 558fcf7..a8e9397 100644
--- a/README.md
+++ b/README.md
@@ -56,16 +56,6 @@ The text of the webring header.
-   Default Value: "Posts from other blogs I follow…"


### Variable: org-webring-attribution

Association connecting the name of the program used to generate the
webring to its URL. The result will be displayed at the bottom of the
webring.

-   Type: List-of-paired-strings
-   Default Value: '("org-webring" . "<https://sr.ht/~brettgilio/org-webring>")


### Variable: org-webring-urls

The URLs which will be scraped for RSS feeds.
diff --git a/README.org b/README.org
index 18e6bca..ee77b49 100644
--- a/README.org
+++ b/README.org
@@ -42,13 +42,6 @@ The text of the webring header.
- Type: String
- Default Value: "Posts from other blogs I follow..."

*** Variable: org-webring-attribution
Association connecting the name of the program used to generate the
webring to its URL. The result will be displayed at the bottom of the
webring.
- Type: List-of-paired-strings
- Default Value: '("org-webring" . "https://sr.ht/~brettgilio/org-webring")

*** Variable: org-webring-urls
The URLs which will be scraped for RSS feeds.
- Type: List-of-strings
diff --git a/org-webring.el b/org-webring.el
index 664b43e..2640221 100644
--- a/org-webring.el
+++ b/org-webring.el
@@ -62,6 +62,12 @@
(require 'xml)
(require 'xmlgen)

(defconst org-webring-attribution-name "org-webring"
  "The name of the program used to generate the webring.")

(defconst org-webring-attribution-link "https://sr.ht/~brettgilio/org-webring"
  "Link to the project site.")

(defcustom org-webring-items-total 3
  "The total number of items generated by the webring."
  :group 'org-webring
@@ -77,15 +83,6 @@
  :group 'org-webring
  :type 'string)

(defcustom org-webring-attribution
  '("org-webring" . "https://sr.ht/~brettgilio/org-webring")
  "Association connecting the name of the program used to
generate the webring to its URL. The result will be displayed
at the bottom of the webring."
  :group 'org-webring
  :type '(cons (string :tag "Name")
               (string :tag "URL")))

(defcustom org-webring-urls '()
  "The URLs which will be scraped for RSS feeds."
  :group 'org-webring
@@ -213,9 +210,9 @@ end. Taken from the s.el library."
			  org-webring-timestamp-generate-format))
		  (br)
		  "Generated with "
		  (a :href ,(cdr org-webring-attribution)
		  (a :href ,org-webring-attribution-link
		     :target "_blank"
		     ,(car org-webring-attribution)))))))
		     ,org-webring-attribution-name))))))

(provide 'org-webring)

-- 
2.28.0