[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/frog-menu 5d04139 1/3: Improve dev setup
From: |
Clemens Radermacher |
Subject: |
[elpa] externals/frog-menu 5d04139 1/3: Improve dev setup |
Date: |
Sun, 18 Aug 2019 07:25:50 -0400 (EDT) |
branch: externals/frog-menu
commit 5d0413944c7c2230c960ef8e52aed5499d7d1ce5
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>
Improve dev setup
---
Makefile | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
stub/.nosearch | 0
stub/avy.el | 12 ++++++++++++
stub/posframe.el | 37 +++++++++++++++++++++++++++++++++++++
test/frog-menu-test.el | 6 ++++++
5 files changed, 105 insertions(+)
diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..d8de248
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,50 @@
+EMACS ?= emacs
+
+package_files := $(wildcard *.el)
+test_files := $(wildcard test/*.el)
+package_lint := ../package-lint/package-lint.el
+
+.PHONY: all
+all: compile checkdoc lint test
+
+.PHONY: compile
+compile:
+ @for file in $(package_files); do \
+ echo "[compile] $$file" ;\
+ $(EMACS) -Q --batch -L . -L stub \
+ --eval "(setq byte-compile-error-on-warn t)"\
+ -f batch-byte-compile $$file;\
+ done
+
+.PHONY: checkdoc
+checkdoc:
+ @for file in $(package_files); do \
+ echo "[checkdoc] $$file" ;\
+ $(EMACS) -Q --batch \
+ --eval "(setq sentence-end-double-space nil)" \
+ --eval "(checkdoc-file \"$$file\")" \
+ --eval "(when (get-buffer \"*Warnings*\") (kill-emacs
1))" ;\
+ done
+
+.PHONY: lint
+lint:
+ @for file in $(package_files); do \
+ echo "[package-lint] $$file" ;\
+ $(EMACS) -Q --batch \
+ -l $(package_lint) \
+ -f package-lint-batch-and-exit $$file ;\
+ done
+
+.PHONY: test
+test:
+ @for file in $(test_files); do \
+ echo "[ert-test] $$file" ;\
+ $(EMACS) -Q --batch -L . -L stub \
+ -l $$file \
+ -f ert-run-tests-batch-and-exit ;\
+ done
+
+.PHONY: clean
+clean:
+ @echo "[clean]" *.elc
+ @rm -f *.elc
diff --git a/stub/.nosearch b/stub/.nosearch
new file mode 100644
index 0000000..e69de29
diff --git a/stub/avy.el b/stub/avy.el
new file mode 100644
index 0000000..4b15225
--- /dev/null
+++ b/stub/avy.el
@@ -0,0 +1,12 @@
+(defvar avy-keys nil)
+(defvar avy-single-candidate-jump nil)
+(defvar avy-handler-function nil)
+(defvar avy-pre-action nil)
+(defvar avy-all-windows nil)
+(defvar avy-style nil)
+(defvar avy-action nil)
+
+(defun avy--process (candidates overlay-fn))
+(defun avy--style-fn (style))
+
+(provide 'avy)
diff --git a/stub/posframe.el b/stub/posframe.el
new file mode 100644
index 0000000..12811c4
--- /dev/null
+++ b/stub/posframe.el
@@ -0,0 +1,37 @@
+
+(require 'cl-lib)
+
+(defvar posframe--frame nil)
+
+(cl-defun posframe-show (posframe-buffer
+ &key
+ string
+ position
+ poshandler
+ width
+ height
+ min-width
+ min-height
+ x-pixel-offset
+ y-pixel-offset
+ left-fringe
+ right-fringe
+ internal-border-width
+ internal-border-color
+ font
+ foreground-color
+ background-color
+ respect-header-line
+ respect-mode-line
+ initialize
+ no-properties
+ keep-ratio
+ override-parameters
+ timeout
+ refresh
+ &allow-other-keys))
+
+(defun posframe-hide (posframe-buffer))
+(defun posframe-poshandler-point-bottom-left-corner (info &optional
font-height))
+
+(provide 'posframe)
diff --git a/test/frog-menu-test.el b/test/frog-menu-test.el
new file mode 100644
index 0000000..f9d3b7f
--- /dev/null
+++ b/test/frog-menu-test.el
@@ -0,0 +1,6 @@
+(require 'ert)
+(require 'frog-menu)
+
+(ert-deftest frog-menu-test-stub ()
+ (should
+ (eq frog-menu-type-function #'frog-menu-type)))