39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
:prefix "sbbs-")
(defcustom sbbs-boards
'(("textboard.org" ("sol" "prog") t)
("bbs.jp.net" (("mona" . "")) t))
"List of SchemeBBS sites and boards."
:type '(repeat (list (string :tag "Board Domain")
(repeat (or (string :tag "Board Name")
(cons (string :tag "Board Name")
(string :tag "API Path"))))
(boolean :tag "Use TLS?"))))
(defcustom sbbs-default-board nil
"Jump to first link after narrowing posts."
:type '(choice (const :tag "None" nil)
(cons (string :tag "Board Domain")
(string :tag "Board Name"))))
|
|
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
:prefix "sbbs-")
(defcustom sbbs-boards
'(("textboard.org" ("sol" "prog") t)
("bbs.jp.net" (("mona" . "")) t))
"List of SchemeBBS sites and boards."
:type '(repeat (list (string :tag "Board Domain")
(repeat (choice :tag "Special API"
(string :tag "Board Name")
(cons (string :tag "Board Name")
(string :tag "API Path"))))
(boolean :tag "Use TLS?"))))
(defcustom sbbs-default-board nil
"Jump to first link after narrowing posts."
:type '(choice (const :tag "None" nil)
(cons (string :tag "Board Domain")
(string :tag "Board Name"))))
|