M README.md => README.md +8 -0
@@ 138,6 138,14 @@ the program used to generate the webring or planet.
- Default Value: `t`
+### **Variable**: org-webring-attribution-prefix
+
+Text which will be displayed before the attribution.
+
+- Type: `String`
+- Default Value: `Generated with`
+
+
### **Variable**: org-webring-display-version
Display the current version of `org-webring`.
M docs/README.org => docs/README.org +5 -0
@@ 106,6 106,11 @@ the program used to generate the webring or planet.
- Type: =Bool=
- Default Value: ~t~
+*** *Variable*: org-webring-attribution-prefix
+Text which will be displayed before the attribution.
+- Type: =String=
+- Default Value: ~Generated with~
+
*** *Variable*: org-webring-display-version
Display the current version of ~org-webring~.
M org-webring.el => org-webring.el +7 -2
@@ 166,6 166,11 @@ the program used to generate the webring or planet."
:group 'org-webring
:type 'bool)
+(defcustom org-webring-attribution-prefix "Generated with"
+ "Text which will be displayed before the attribution."
+ :group 'org-webring
+ :type 'string)
+
(defcustom org-webring-display-version t
"Display the current version of `org-webring'.
@@ 543,7 548,7 @@ The POST will be skipped
org-webring-timestamp-generate-format))
`(br)))
,@(when org-webring-display-attribution
- `(,(print "Generated with ")
+ `(,(print (concat org-webring-attribution-prefix " "))
(a :href ,org-webring-attribution-link
:target "_blank"
,org-webring-attribution-name)
@@ 581,7 586,7 @@ The POST will be skipped
org-webring-timestamp-generate-format))
`(br)))
,@(when org-webring-display-attribution
- `(,(print "Generated with ")
+ `(,(print (concat org-webring-attribution-prefix " "))
(a :href ,org-webring-attribution-link
:target "_blank"
,org-webring-attribution-name)