emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]