sbbs.el

Modified sbbs.el from [4c1b0d2eeb] to [fbf9317204].

    40     40     '(("textboard.org" ("sol" "prog") t)
    41     41       ("bbs.jp.net" ("mona") t))
    42     42     "List of SchemeBBS sites and boards."
    43     43     :type '(repeat (list (string :tag "Board Domain")
    44     44                          (repeat (string :tag "Board Name"))
    45     45                          (boolean :tag "Use TLS?"))))
    46     46   
           47  +(defcustom sbbs-default-board nil
           48  +  "Jump to first link after narrowing posts."
           49  +  :type '(choice (const :tag "None" nil)
           50  +                 (cons (string :tag "Board Domain")
           51  +                       (string :tag "Board Name"))))
           52  +
    47     53   (defcustom sbbs-jump-to-link t
    48     54     "Jump to first link after narrowing posts."
    49     55     :type 'boolean)
    50     56   
    51     57   (defcustom sbbs-recenter-to-top t
    52     58     "Move point to top of frame when moving through posts."
    53     59     :type 'boolean)
................................................................................
   131    137       boards))
   132    138   
   133    139   (defun sbbs-read-board ()
   134    140     "Read in a board using `completing-read'.
   135    141   
   136    142   The list will be generated using `sbbs-boards', and the result
   137    143   will be a board object generated with `sbbs-make-board'."
   138         -  (let (boards)
          144  +  (let (boards def)
   139    145       (dolist (b (sbbs--list-boards))
          146  +      (when (and sbbs-default-board
          147  +                 (string= (sbbs--board-domain b)
          148  +                          (car sbbs-default-board))
          149  +                 (string= (sbbs--board-name b)
          150  +                          (cdr sbbs-default-board)))
          151  +        (setq def b))
   140    152         (push (cons (format "/%s/ (%s)"
   141    153                             (sbbs--board-name b)
   142    154                             (sbbs--board-domain b))
   143    155                     b)
   144    156               boards))
   145         -    (cdr (assoc (completing-read "Board: " boards nil t) boards))))
          157  +    (let ((choice (completing-read
          158  +                   (if def
          159  +                       (format "Board (default %s/%s): "
          160  +                               (sbbs--board-domain def)
          161  +                               (sbbs--board-name def))
          162  +                     "Board: ")
          163  +                   boards nil nil nil nil def)))
          164  +      (if (stringp choice)
          165  +          (cdr (assoc choice boards))
          166  +        choice))))
   146    167   
   147    168    ;; UTILITY FUNCTIONS
   148    169   
   149    170   (defun sbbs--reload-thread (&optional _ignore-auto _noconfirm)
   150    171     "Function to reload an opened thread."
   151    172     (when sbbs--thread-id (sbbs-view-open sbbs--thread-id)))
   152    173