(require 'super)
(require 'mode-line)

(defvar *config-path*)
(defun find-elisp-file (&optional file)
  (interactive "sfile: ")
  (find-file (concat *config-path* file)) )

;; (setq emacs-lisp-mode-hook nil)
(defun emacs-lisp-mode-hook-f ()
  (enable-line-mode)
  (disable-super-global-keys) )
(add-hook 'emacs-lisp-mode-hook #'emacs-lisp-mode-hook-f)

(defun point-in-comment-p (&optional print-message)
  (interactive "p")
  "True iff point is in a comment."
  (let*((comment  (nth 8 (syntax-ppss)))
        (feedback (format "%s comment" (if comment "Yes:" "No"))) )
    (prog1 comment
        (when print-message (message feedback)) )))

(setq emacs-lisp-docstring-fill-column t) ; same as fill-column

(setq initial-major-mode 'emacs-lisp-mode)

(defalias 'elisp-mode 'emacs-lisp-mode)

(define-key emacs-lisp-mode-map "\C-c\C-c" #'compile)

;; checkdoc
(require 'checkdoc)
(setq checkdoc-permit-comma-termination-flag t)

(defun check-pack-style ()
  (interactive)
  (checkdoc-current-buffer t) ; TAKE-NOTES
  (message "Style check done.") )

(define-key emacs-lisp-mode-map "\C-o\C-c" #'check-pack-style)