;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/gnus/gnus-server.el

(require 'close)
(require 'gnus-srvr)
(require 'mode-line)
(require 'scroll)
(require 'super)

(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))
    (disable-super-global-keys kmap)
    (set-close-key kmap)

    (define-key kmap "d" #'gnus-server-deny-server)
    (define-key kmap "o" #'gnus-server-open-server)

    (define-key kmap "k"  #'next-line)
    (define-key kmap "\t" #'next-line)

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

(defun gnus-server-mode-hook-f ()
  (lines)
  (gnus-server-set-keys) )
(add-hook 'gnus-server-mode-hook #'gnus-server-mode-hook-f)

(provide 'gnus-server)