bug: fix melpazoid errors

seokbeomKim · Dec 11, 2024 · 7a9a1f9 · 7a9a1f9
1 parent 3577660
commit 7a9a1f9
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 15 deletions.
diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml
@@ -21,5 +21,5 @@ jobs:
 
       - name: Run testcases
         run: |
-          emacs --batch --eval "(progn (setq package-check-signature nil) (package-initialize) (add-to-list 'package-archives (cons \"melpa\" \"https://melpa.org/packages/\") t) (package-refresh-contents) (package-install 'projectile) (package-install 'vertico) (package-install 'lsp-mode))"
+          emacs --batch --eval "(progn (setq package-check-signature nil) (package-initialize) (add-to-list 'package-archives (cons \"melpa\" \"https://melpa.org/packages/\") t) (package-refresh-contents) (package-install 'projectile) (package-install 'vertico) (package-install 'lsp-mode) (package-install 'fringe-helper)"
           emacs --batch --eval '(let ((default-directory "~/.emacs.d/elpa")) (normal-top-level-add-subdirs-to-load-path))' -l projectile -l org-linenote.el -l org-linenote-test.el -l ert -f ert-run-tests-batch-and-exit;
diff --git a/org-linenote.el b/org-linenote.el
@@ -57,6 +57,9 @@
 (require 'eldoc)
 (require 'fringe-helper)
 
+(eval-when-compile
+  (defvar org-linenote-fringe-bitmap nil))
+
 (defcustom org-linenote-default-extension ".org"
   "Configure the default note extension.
 If you set this to `.md', then it supports compability with
@@ -87,23 +90,10 @@ Set to nil to disable the fringe."
 
 (defcustom org-linenote-fringe-side 'left-fringe
   "Set the fringe position.
-Either 'left-fringe or'right-fringe is available."
+Either \='left-fringe or \='right-fringe is available."
   :type 'symbol
   :group 'org-linenote)
 
-(defcustom org-linenote-fringe-bitmap
-  '("XX......"
-    "XX......"
-    "XX..XX.."
-    "XX..XX.."
-    "XX..XX.."
-    "XX..XX.."
-    "XX......"
-    "XX......")
-  "Define a fringe bitmap to indicate notes."
-  :type '(repeat string)
-  :group 'org-linenote)
-
 (defface org-linenote-highlight-style '((t :background "medium turquoise" :underline nil))
   "Highlight style for the notes.")
 
@@ -119,6 +109,19 @@ Either 'left-fringe or'right-fringe is available."
 (defvar org-linenote--buffers nil
   "The target buffer to ensure line tracking.")
 
+(defcustom org-linenote-fringe-bitmap
+  '("XX......"
+    "XX......"
+    "XX..XX.."
+    "XX..XX.."
+    "XX..XX.."
+    "XX..XX.."
+    "XX......"
+    "XX......")
+  "Define a fringe bitmap to indicate notes."
+  :type '(repeat string)
+  :group 'org-linenote)
+
 (defvar-local org-linenote--overlays nil
   "Overlays in a local buffer.")