solarized-emacs

commit e07e1ef6beadd59e5431122be7f04c4328f3eeef
parent 3b82690631072db06d016f4889ec0fbf5dcb6f4e
Author: Thomas Frössman <thomasf@jossystem.se>
Date:   Wed, 21 Oct 2015 04:00:35 +0200

Merge pull request #209 from tarsius/test-cleanup

Do not depend on the f and s packages for tests
Diffstat:
M
tests/emacs-visual-test.el
 | 
18
+++++-------------

1 file changed, 5 insertions(+), 13 deletions(-)
diff --git a/tests/emacs-visual-test.el b/tests/emacs-visual-test.el
@@ -1,27 +1,22 @@
 ;;; emacs-visual-test.el ---
 
-;;; Commentary:
-;;
-
 (load-file "init.el")
-(require 's)
 (require 'dash)
-(require 'f)
 (setq header-line-format "header line content")
 
 (defconst screenshots-directory
-  (f-expand "screenshots" tests-directory))
+  (expand-file-name "screenshots" tests-directory))
 
 (defconst test-files-directory
-  (f-expand "test-files" tests-directory))
+  (expand-file-name "test-files" tests-directory))
 
 (defun visual-test-find-file (  name)
-  (find-file (f-expand name test-files-directory)))
+  (find-file (expand-file-name name test-files-directory)))
 
 (defun visual-test-screenshot ()
   (call-process "scrot" nil nil nil "-u"
-                (f-expand "screenshot-%Y-%m-%d_%H-%M-%S_$wx$h.png"
-                          screenshots-directory))
+                (expand-file-name "screenshot-%Y-%m-%d_%H-%M-%S_$wx$h.png"
+                                  screenshots-directory))
   (message "saved screenshot"))
 
 ;; (setq solarized-high-contrast-mode-line t)
@@ -35,7 +30,6 @@
 (goto-char 27)
 (call-interactively 'ispell-complete-word)
 
-
 (run-with-idle-timer 2 nil
                      '(lambda ()
                         (visual-test-screenshot)
@@ -44,8 +38,6 @@
                         ;; (kill-emacs)
                         ))
 
-
-
 (provide 'emacs-visual-test)
 
 ;;; emacs-visual-test.el ends here