Add: logging to fussy.el

1 files changed, 46 insertions, 16 deletions

diff --git a/fussy.el b/fussy.el
index ef67e32..d8cbe4b 100644
--- a/fussy.el
+++ b/fussy.el
@@ -5,6 +5,17 @@
 (require 'cl-lib)
 (require 'package)
 
+(defun rel-to-home (file)
+  (concat (getenv "HOME") "/" file))
+
+(defun fussy-log (string)
+  (let ((line
+         (concat string "\n"))
+        (logfile
+         (rel-to-home "fussy.el.log")))
+    (write-region line nil logfile 'append)))
+
+
 (defvar +excluded-package-names+
   '(tramp-theme color-theme airline-themes))
 
@@ -13,11 +24,15 @@
        (string= suffix
                 (cl-subseq str (- (length str) (length suffix))))))
 
- (defun fussy-is-theme-p (pkg-entry)
+(fussy-log "one")
+
+(defun fussy-is-theme-p (pkg-entry)
   (let ((name (symbol-name (cl-first pkg-entry))))
-   (and (or (fussy-string-ends-with name "-theme")
-            (fussy-string-ends-with name "-themes"))
-        (not (cl-member (cl-first pkg-entry) +excluded-package-names+)))))
+    (and (or (fussy-string-ends-with name "-theme")
+             (fussy-string-ends-with name "-themes"))
+         (not (cl-member (cl-first pkg-entry) +excluded-package-names+)))))
+
+(fussy-log "two")
 
 (defun fussy-themes-packages ()
   "Setting FUSSY-THEME-PACKAGES-TO-LOAD at the command line will
@@ -30,6 +45,8 @@ those."
       fussy-theme-packages-to-load
     (cl-remove-if-not 'fussy-is-theme-p package-archive-contents)))
 
+(fussy-log "three")
+
 (defun fussy-themes-to-exclude-from-image-generation ()
   "Setting FUSSY-EXCLUDED-THEMES from the command line will tell
 the script not to load those themes. This function simply checks
@@ -38,6 +55,8 @@ symbols, returning nil if not."
   (when (boundp 'fussy-excluded-themes)
     fussy-excluded-themes))
 
+(fussy-log "four")
+
 (defun fussy-screenshot-svg (filename)
   "Save a screenshot of the current frame as an SVG image to a file
 called filename."
@@ -47,15 +66,21 @@ called filename."
       (insert data))
     (copy-file tmpfile filename t)))
 
+(fussy-log "five" )
+
 (defun install-all-themes ()
+  (fussy-log "installing all themes")
   (let ((failed-to-install nil))
-   (cl-dolist (theme (fussy-themes-packages))
-     (let ((package-name (if (symbolp theme) theme (cl-first theme))))
-       (condition-case nil
-           (package-install package-name)
-         (error (push package-name failed-to-install)))))
-   failed-to-install))
+    (cl-dolist (theme (fussy-themes-packages))
+      (let ((package-name (if (symbolp theme) theme (cl-first theme))))
+        (condition-case nil
+            (package-install package-name)
+          (error
+           (fussy-log (format "failed to install %s ... continuing" package-name))
+           (push package-name failed-to-install)))))
+    failed-to-install))
 
+(fussy-log "six")
 
 (defun locate-theme-package (theme)
   "Given a symbol naming a theme, find the name of the package that
@@ -75,20 +100,22 @@ the theme came from."
        "-"))
      "-")))
 
+(fussy-log "seven")
+
 (defun fussy-generate-all-theme-images (&rest files)
   (let ((failed-to-load nil)
         (failed-to-generate-image nil)
         (failed-to-install (install-all-themes)))
-    (message "All themes have been loaded")
+    (fussy-log "Generating all theme images")
     (cl-dolist (theme (custom-available-themes))
       (unless (member theme (fussy-themes-to-exclude-from-image-generation))
-        (message (format "Generating for theme: %s" theme))
+        (fussy-log (format "Generating for theme: %s" theme))
         (unwind-protect
             (when (condition-case nil
                       (progn (load-theme theme t)
                              t)
                     (error (push theme failed-to-load)
-                           (message "... failed to load!")
+                           (fussy-log "... failed to load!")
                            nil))
               (dolist (file files)
                 (let* ((theme-package
@@ -117,7 +144,9 @@ the theme came from."
                (list :load-errors failed-to-load
                      :generation-errors failed-to-generate-image
                      :install-errors failed-to-install))))
-    (message "FINISHED GENERATING THEME IMAGES")))
+    (fussy-log "FINISHED GENERATING THEME IMAGES")))
+
+(fussy-log "eight")
 
 (add-to-list 'package-archives
 	     '("melpa" . "https://melpa.org/packages/") t)
@@ -125,6 +154,8 @@ the theme came from."
 (add-to-list 'default-frame-alist
              '(font . "DejaVu Sans Mono-10"))
 
+
+(fussy-log "Starting ... ")
 (package-initialize)
 (package-refresh-contents)
 (package-install 'compat)
@@ -133,8 +164,7 @@ the theme came from."
 (set-frame-height (frame-focus) 50)
 (set-frame-width (frame-focus) 100)
 
-(defun rel-to-home (file)
-  (concat (getenv "HOME") "/" file))
+
 
 (fussy-generate-all-theme-images
  (rel-to-home "../fussy.lisp")