From 7a9a1f98b646f75bf86fb8566a08301acccb82f1 Mon Sep 17 00:00:00 2001
From: Sukbeom Kim <sukbeom.kim@gmail.com>
Date: Wed, 11 Dec 2024 22:55:17 +0900
Subject: [PATCH] bug: fix melpazoid errors

---
 .github/workflows/ci.yml |  2 +-
 org-linenote.el          | 31 +++++++++++++++++--------------
 2 files changed, 18 insertions(+), 15 deletions(-)

diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml
index 1ab9b8f..4086505 100644
--- 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
index ebf1026..fc867a7 100644
--- 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.")