From ba93eaa07c02d1fe21c8b267f0e126ff1519a721 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Thu, 29 Sep 2022 10:29:11 +1000 Subject: get rid of clean byte compiling warnings --- hcel-haddorg.el | 6 ++++-- hcel-results.el | 4 ++-- hcel-source.el | 32 +++++++++++++++----------------- 3 files changed, 21 insertions(+), 21 deletions(-) diff --git a/hcel-haddorg.el b/hcel-haddorg.el index 90b0ce6..ea2a168 100644 --- a/hcel-haddorg.el +++ b/hcel-haddorg.el @@ -23,13 +23,15 @@ (require 'org) (defcustom hcel-haddorg-dir "~/Projects/sedoc/haddock/org-output" - "Directory of haddorg org files.") + "Directory of haddorg org files." + :group 'hcel :type '(string)) (defcustom hcel-haddorg-lax-version t "If non-nil, match highest version if no exact match found. Say we have ghc-8.6.5.org and ghc-9.2.2.org. If the definition -is in ghc-8.10.1, hcel will attempt to look up in ghc-9.2.2.org.") +is in ghc-8.10.1, hcel will attempt to look up in ghc-9.2.2.org." + :group 'hcel :type '(string)) (defun hcel-haddorg-to-hcel-definition () (interactive) diff --git a/hcel-results.el b/hcel-results.el index d3e2325..58c6f31 100644 --- a/hcel-results.el +++ b/hcel-results.el @@ -391,11 +391,11 @@ Start by choosing a package." (number-to-string hcel-ids-live-per-page)))) hcel-ids--minibuffer-saved-results)))) -(defun hcel-global-ids-minibuffer-collection (query pred action) +(defun hcel-global-ids-minibuffer-collection (query _ action) (hcel-ids-minibuffer-collection 'global query action)) (defun hcel-package-ids-minibuffer-collection (package-id) - (lambda (query pred action) + (lambda (query _ action) (hcel-ids-minibuffer-collection 'package query action package-id))) (defun hcel-ids (scope query &optional package-id) diff --git a/hcel-source.el b/hcel-source.el index ef57bcb..dc54e18 100644 --- a/hcel-source.el +++ b/hcel-source.el @@ -25,7 +25,21 @@ (require 'xref) (defcustom hcel-font-lock-use-haskell-mode nil - "If non-nil, will use haskell mode for haskell syntax highlight.") + "If non-nil, will use haskell mode for haskell syntax highlight." + :group 'hcel :type '(boolean)) + + +(defface hcel-type-face '((t :inherit font-lock-type-face)) + "Face used to highlight types" :group 'hcel-faces) +(defface hcel-value-face '((t :inherit font-lock-variable-name-face)) + "Face used to highlight values" :group 'hcel-faces) +(defface hcel-comment-face '((t :inherit font-lock-comment-face)) + "Face used to highlight comments" :group 'hcel-faces) +(defface hcel-pragma-face '((t :inherit font-lock-preprocessor-face)) + "Face used to highlight pragmas" :group 'hcel-faces) + +(defvar hcel-comment-re "^\\ *--.*$") +(defvar hcel-pragma-re "^\\ *{-# .*? #-}\\ *$") (defvar-local hcel-identifiers nil) (defvar-local hcel-package-id nil) @@ -349,22 +363,6 @@ the location with pulsing. (left-char)) (define-key hcel-mode-map "p" #'hcel-source-previous-declaration) -(defface hcel-type-face '((t :inherit font-lock-type-face)) - "Face used to highlight types" :group 'hcel-faces) -(defface hcel-value-face '((t :inherit font-lock-variable-name-face)) - "Face used to highlight values" :group 'hcel-faces) -(defface hcel-comment-face '((t :inherit font-lock-comment-face)) - "Face used to highlight comments" :group 'hcel-faces) -(defface hcel-pragma-face '((t :inherit font-lock-preprocessor-face)) - "Face used to highlight pragmas" :group 'hcel-faces) -(defface hcel-builtin-face '((t :inherit font-lock-builtin-face)) - "Face used to highlight builtins" :group 'hcel-faces) - -(defvar hcel-comment-re "^\\ *--.*$") -(defvar hcel-pragma-re "^\\ *{-# .*? #-}\\ *$") -(defvar hcel-builtin-re "^\\ *\\(module\\|import\\|qualified\\|as\\|if\\|then\\|else\\|in\\|where\\|::\\)\\ *$") - - (defun hcel-write-html-source-to-buffer (lines occs font-lock) (mapc (lambda (line) -- cgit v1.2.3