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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/pacmacs 2c1881afdf 185/472: Compile the project on CI (#12


From: ELPA Syncer
Subject: [nongnu] elpa/pacmacs 2c1881afdf 185/472: Compile the project on CI (#123)
Date: Thu, 6 Jan 2022 21:59:23 -0500 (EST)

branch: elpa/pacmacs
commit 2c1881afdf1b2bdfbd4e9779243c32574c51cef7
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>

    Compile the project on CI (#123)
---
 .travis.yml      |  1 +
 pacmacs.el       |  3 ++-
 tools/compile.el | 16 ++++++++++++++++
 3 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/.travis.yml b/.travis.yml
index 1abcb9b596..eaa0786262 100644
--- a/.travis.yml
+++ b/.travis.yml
@@ -15,6 +15,7 @@ env:
   - EVM_EMACS=emacs-24.4-bin
   - EVM_EMACS=emacs-24.5-bin
 script:
+  - emacs --script ./tools/compile.el
   - cask exec ert-runner
 notifications:
   email:
diff --git a/pacmacs.el b/pacmacs.el
index e12c66f74d..790535bcd2 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Alexey Kutepov <reximkut@gmail.com>
 ;; URL: http://github.com/rexim/pacmacs.el
 ;; Version: 0.0.1
-;; Package-Requires: ((dash "2.11.0") (dash-functional "1.2.0") (cl-lib "0.5"))
+;; Package-Requires: ((dash "2.11.0") (dash-functional "1.2.0") (cl-lib "0.5") 
(f "0.18.0"))
 
 ;; Permission is hereby granted, free of charge, to any person
 ;; obtaining a copy of this software and associated documentation
@@ -441,6 +441,7 @@
           (insert "\n")))
       (insert "\n")
       (dotimes (i pacmacs-lives)
+        (ignore i)
         (pacmacs--render-life-icon))
 
       (when (equal pacmacs-game-state 'game-over)
diff --git a/tools/compile.el b/tools/compile.el
new file mode 100755
index 0000000000..617639441c
--- /dev/null
+++ b/tools/compile.el
@@ -0,0 +1,16 @@
+(require 'cask "~/.cask/cask.el")
+
+(let ((bundle (cask-initialize default-directory)))
+  (require 'dash)
+  (require 'dash-functional)
+  (require 'f)
+  (require 'bytecomp)
+  (let ((load-path (cons (cask-path bundle) (cask-load-path bundle))))
+    (when (->> (cask-files bundle)
+               (-filter (-lambda (path)
+                          (and (f-file? path)
+                               (f-ext? path "el"))))
+               (-map (-lambda (file)
+                       (byte-compile-file file nil)))
+               (-any #'null))
+      (kill-emacs 1))))



reply via email to

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