;;; -*- lexical-binding: t -*-
;;
;; -----------------------------------------------------------------------------

(require 'cl-lib)
(cl-pushnew (file-name-concat ".")       load-path :test #'string=)
(cl-pushnew (file-name-concat ".." "ll") load-path :test #'string=)
(require 'luki-lisp)

;; -----------------------------------------------------------------------------

(-> 'gnus-srvr)
(-> 'll-close)
(-> 'll-scroll)

;; -----------------------------------------------------------------------------

(defvar gnus-browse-font-lock-keywords
  '(("^K"                       . font-lock-builtin-face)
    ("\\([[:digit:]].*\\):"    (1 font-lock-negation-char-face))
    ("\\(gmane\\.\\)\\(.*\\)"  (1 font-lock-comment-face))
    ("\\(gwene\\.\\)\\(.*\\)"  (1 font-lock-constant-face)
                               (2 font-lock-type-face))))

;; -----------------------------------------------------------------------------

(let ((kmap gnus-browse-mode-map))
  (set-vertical-keys kmap)
  (set-close-key kmap)
  (keymap-set kmap "s" #'gnus-browse-toggle-subscription-at-point))

;; -----------------------------------------------------------------------------

(defun gnus-browse-mode-hook-f ()
  (setq font-lock-defaults '(gnus-browse-font-lock-keywords t)))

(add-hook 'gnus-browse-mode-hook #'gnus-browse-mode-hook-f)

;; -----------------------------------------------------------------------------

(<- 'browse)

;; -----------------------------------------------------------------------------