Make attributions constant v1 APPLIED

Ivan Sokolov: 1
 Make attributions constant

 3 files changed, 8 insertions(+), 28 deletions(-)

[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