;;; -*- 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)

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

(setq gnus-server-line-format "%0{%8h%}: %w %37=%s\n")

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

(push '(" *\\(.*\\): \\([-.[:alnum:]]*\\) "
        (1 'font-lock-comment-face)
        (2 'default))
      gnus-server-font-lock-keywords)

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

(defun gnus-server-set-keys ()
  (let ((kmap gnus-server-mode-map))
    (set-close-key kmap)

    (keymap-set kmap "d" #'gnus-server-deny-server)
    (keymap-set kmap "o" #'gnus-server-open-server)

    (keymap-set kmap "k"   #'next-line)
    (keymap-set kmap "TAB" #'next-line)

    (keymap-set kmap "i"       #'previous-line)
    (define-key kmap [backtab] #'previous-line)))

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

(defun gnus-server-mode-hook-f ()
  (gnus-server-set-keys))

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

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

(<- 'gnus-server)