;;; fun-names-mode.el --- fun-names.el mode -*- lexical-binding: t -*-
;;
;; Author: Emanuel Berg <incal@dataswamp.org>
;; Created: 2024-08-05
;; Keywords: lisp, matching, tools
;; License: GPL3+
;; Package-Requires: ((emacs "24.1"))
;; URL: https://dataswamp.org/~incal/emacs-init/fun-names-mode.el
;; Version: 0.0.10
;;
;;; Commentary:
;;
;;; Code:

(require 'fun-names)

(defun funa--navigate (num)
  (interactive (list (read-number "number: " 1)))
  (goto-char (point-min))
  (re-search-forward num nil t))

(defvar fun-names-mode-map
  (let ((map (make-keymap)))
    (keymap-set map "C-<semicolon>" #'fun-names)
    (keymap-set map "w" #'bury-buffer)
    map))

(define-minor-mode fun-names-mode
  "fun-names mode"
  :init-value nil)

(provide 'fun-names-mode)
;;; fun-names-mode.el ends here