sbbs.el

Check-in [c6c6a90cab]
Login
Overview
Comment:Fix type update from [d0b75dd168]
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | master | trunk
Files: files | file ages | folders
SHA3-256: c6c6a90cab3f8183e9f1e95473f263d6c58a09cd4e02d6e4695cb762720aa2e8
User & Date: zge on 2022-01-24 09:16:03
Other Links: branch diff | manifest | tags
Context
2022-01-24
09:22
Add sbbs-format-word-at-point user option check-in: 4d43170777 user: zge tags: master, trunk
09:16
Fix type update from [d0b75dd168] check-in: c6c6a90cab user: zge tags: master, trunk
09:12
Fix typo in sbbs--thread-loader's Scheme->Elisp translation check-in: c0938f9005 user: zge tags: master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified sbbs.el from [81d2e3071c] to [2fdcb74ccb].

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"))))