unity-auto-config.el

(provide 'unity-auto-config)

(defun unity-chomp (str)
  "Chomp leading and tailing whitespace from STR."
  (let ((s (if (symbolp str) (symbol-name str) str)))
    (unity-replace-regex-in-string "\\(^[[:space:]\n]*\\|[[:space:]\n]*$\\)" "" s)))

(defun unity-insert-heading(text)
  (insert "\n" (unity-colour text  "light blue") "\n"))

(defun unity-display-is-this-correct? ()
  (insert
   (unity-colour   "  Is this correct? (" "yellow")
   (unity-colour "ENTER " "green")
   (unity-colour "confirms, " "yellow")
   (unity-colour "else correct in mini-buffer)" "yellow")))

(defun unity-display-config-setting (buffer parameter param-name text)
  (let ((start (point)) (temp nil))
    (let ((inhibit-read-only t))
      (buffer-disable-undo)
      (insert
       (unity-colour (concat "\n" text "\n\n") "yellow")
       "  " parameter "\n\n")
      (unity-display-is-this-correct?))
    (let ((inhibit-read-only nil))
      (setq temp
            (completing-read (concat
                              (unity-chomp param-name) " ")
                             parameter nil nil parameter )))
    (let ((inhibit-read-only t))
      (backward-delete-char (- (point-at-eol) start))
      temp)))

(defun unity-display-updated-config-setting (buffer parameter param-name)
  (let ((inhibit-read-only t))
    (insert
     (unity-colour param-name "green")
     "  " parameter "\n")))

(defun unity-config-setting (buffer parameter param-name text)
  (if (not parameter) (setq parameter ""))
  (setq parameter
        (unity-display-config-setting
         buffer parameter param-name text))
  (unity-display-updated-config-setting
   buffer parameter param-name)
  parameter)

(defun unity-setup ()
  (interactive)
  (setq unity-setup-performed-p nil)
  (save-excursion
    (setq buffer-name unity-temp-buffer)
    (let ((buffer (get-buffer-create buffer-name)))
      (switch-to-buffer buffer)
      (with-current-buffer buffer
        (setq buffer-read-only t)
        (let ((inhibit-read-only t))
          (buffer-disable-undo)
          (erase-buffer)
          (unity-insert-heading
           "           Unity Mode Project Setup...")
          (unity-insert-heading "Directories...")
          (setq unity-project-root-dir
                (if (unity-search-for-project-root-by-rakefile
                     default-directory)
                    (unity-search-for-project-root-by-rakefile
                     default-directory)
                  default-directory))
          (setq
           unity-project-root-dir
           (unity-config-setting
            buffer 
            unity-project-root-dir
            "project-root:   "
            "The Project Root Directory is set to..."))
          (setq unity-ceedling-root-dir
                (if
                    (unity-search-for-ceedling-root-by-presence-of-relevant-dirs
                     unity-project-root-dir)
                    (unity-search-for-ceedling-root-by-presence-of-relevant-dirs
                     unity-project-root-dir)
                  (concat unity-project-root-dir "ceedling/")))
          (setq
           unity-ceedling-root-dir
           (unity-config-setting
            buffer
            unity-ceedling-root-dir
            "ceedling-root:  "
            "The Ceedling Root Directory is set to..."))
          (setq unity-unity-root-dir
                (if (unity-check-for-unity-root-relative-to-ceedling-p
                     unity-ceedling-root-dir)
                    (concat unity-ceedling-root-dir "vendor/unity/")
                  (concat unity-project-root-dir "unity/")))
          (setq
           unity-unity-root-dir
           (unity-config-setting
            buffer
            unity-unity-root-dir
            "unity-root:     "
            "The Unity Root Directory is set to..."))

          (setq unity-cmock-root-dir
                (if (unity-check-for-cmock-root-relative-to-ceedling-p
                     unity-ceedling-root-dir)
                    (concat unity-ceedling-root-dir "vendor/cmock/")
                  (concat unity-project-root-dir "cmock/")))
          (setq
           unity-cmock-root-dir
           (unity-config-setting
            buffer
            unity-cmock-root-dir
            "cmock-root:     "
            "The CMock Root Directory is set to..."))

          (setq unity-plugins-dir
                (concat unity-ceedling-root-dir "plugins/"))
          (setq
           unity-plugins-dir
           (unity-config-setting
            buffer
            unity-plugins-dir
            "plugins-dir:    "
            "The Plugins Directory is set to..."))

          (setq unity-custom-plugins-dir
                (if (unity-check-for-custom-plugins-relative-to-ceedling-p
                     unity-ceedling-root-dir)
                    (concat unity-ceedling-root-dir "/custom_plugins")
                  ""))
          (setq
           unity-custom-plugins-dir
           (unity-config-setting
            buffer
            unity-custom-plugins-dir
            "custom-plugins: "
            "The Custom Plugins Directory is set to..."))

          (setq unity-src-dir
                (concat unity-project-root-dir "src/"))
          (setq
           unity-src-dir
           (unity-config-setting
            buffer
            unity-src-dir
            "C-source-dir:   "
            "The Source Directory is set to..."))
          
          (setq unity-header-dir
                (if (file-directory-p
                     (concat unity-project-root-dir "inc/"))
                    (concat unity-project-root-dir "inc/")
                  (concat unity-project-root-dir "src/")))
          (setq
           unity-header-dir
           (unity-config-setting
            buffer 
            unity-header-dir
            "header-dir:     "
            "The Header Directory is set to..."))
          
          (setq unity-test-dir
                (concat unity-project-root-dir "test/"))
          (setq
           unity-test-dir
           (unity-config-setting
            buffer
            unity-test-dir
            "test-dir:       "
            "The Test Directory is set to..."))

          (setq unity-mocks-dir
                (concat unity-project-root-dir "mocks/"))
          (setq
           unity-mocks-dir
           (unity-config-setting
            buffer
            unity-mocks-dir
            "mocks-dir:      "
            "The Mocks Directory is set to..."))

          (setq unity-build-dir
                (concat unity-project-root-dir "build/"))
          (setq
           unity-build-dir
           (unity-config-setting
            buffer
            unity-build-dir
            "build-dir:      "
            "The Build Directory is set to..."))

          (unity-insert-heading "Extensions...")

          (setq
           unity-src-file-extension
           (unity-config-setting
            buffer
            unity-src-file-extension
            "source file extension:"
            "The source file extension is set to..."))

          (setq
           unity-header-file-extension
           (unity-config-setting
            buffer
            unity-header-file-extension
            "header file extension:"
            "The header file extension is set to..."))

          (unity-insert-heading "File prefixes...")

          (setq
           unity-test-file-prefix
           (unity-config-setting
            buffer
            unity-test-file-prefix
            "test file prefix:     "
            "The test file prefix is set to..."))

          (setq
           unity-mock-file-prefix
           (unity-config-setting
            buffer
            unity-mock-file-prefix
            "mock file prefix:     "
            "The mock file prefix is set to..."))

          (unity-insert-heading "MCH Filename suffixes...")

          (setq
           unity-model-file-suffix
           (unity-config-setting
            buffer
            unity-model-file-suffix
            "model file suffix:    "
            "The Model file suffix is set to..."))

          (setq
           unity-conductor-file-suffix
           (unity-config-setting
            buffer
            unity-conductor-file-suffix
            "conductor file suffix:"
            "The Conductor file suffix is set to..."))

          (setq
           unity-hardware-file-suffix
           (unity-config-setting
            buffer
            unity-hardware-file-suffix
            "hardware file suffix: "
            "The Hardware file suffix is set to..."))

          (setq
           unity-configurator-file-suffix
           (unity-config-setting
            buffer
            unity-configurator-file-suffix
            "configurator suffix:  "
            "The Configurator file suffix is set to..."))

          (unity-insert-heading "Directory/File Generation...")

          (let ((reply "yes"))
            (setq reply
                  (if (unity-config-setting
                       buffer
                       reply
                       "generate missing directories:"
                       "Auto-Generate missing directories?")
                      (unity-generate-directories
                       (unity-build-missing-directories-list
                        `(,unity-project-root-dir
                          ,unity-ceedling-root-dir
                          ,unity-unity-root-dir
                          ,unity-ceedling-root-dir
                          ,unity-cmock-root-dir
                          ,unity-plugins-dir
                          ,unity-custom-plugins-dir
                          ,unity-src-dir
                          ,unity-header-dir
                          ,unity-test-dir
                          ,unity-mocks-dir
                          ,unity-build-dir))))))

          (let ((reply "yes"))
            (setq reply
                  (if (unity-config-setting
                       buffer
                       reply
                       "generate rakefile:           "
                       "Auto-Generate rakefile?")
                      (progn
                        (unity-rakefile-backup
                         (concat unity-project-root-dir "rakefile.rb"))
                        (unity-write-rakefile
                         (concat unity-project-root-dir "rakefile.rb")
                         (unity-rakefile-set-target
                          unity-rakefile
                          (concat unity-ceedling-root-dir "lib/rakefile.rb")
                          ))))))

          (let ((reply "yes"))
            (setq reply
                  (if (unity-config-setting
                       buffer
                       reply
                       "generate project.org:        "
                       "Auto-Generate project.org?")
                      ())))
          
          (let ((reply "yes"))
            (setq reply
                  (if (unity-config-setting
                       buffer
                       reply
                       "generate project.yml:        "
                       "Auto-Generate project.yml?")
                      ())))
          
          (unity-insert-heading "           Project Setup Complete - Hit ENTER..."))
        (read-from-minibuffer "Finished! Hit ENTER..."))
      (kill-buffer unity-temp-buffer))))


(defun unity-write-rakefile (rakefile-path rakefile-data)
  "Writes generated rakefile to project root

  (unity-write-rakefile RAKEFILE-PATH RAKEFILE-DATA)

  Return a new string containing the rakefile contents with ceedling-rakefile-target.rb replaced with TARGET."
  
  (save-excursion
    (set-buffer (get-buffer-create "*rakefile.rb*"))
    (erase-buffer)
    (insert rakefile-data)
    (write-file rakefile-path t)
    (kill-buffer)))

;; org gen...
;;         insert-file-contents

(defun unity-test-rakefile ()
  (interactive)
  (unity-rakefile-backup
   (concat unity-project-root-dir "rakefile.rb"))
  (unity-write-rakefile
   (concat unity-project-root-dir "rakefile.rb")
   (unity-rakefile-set-target
    unity-rakefile
    (concat unity-ceedling-root-dir "lib/rakefile.rb"))))

(defun unity-generate-directories (directory-list)
  "Generates missing project directories.

unity-generate-missing-directories (DIRECTORY-LIST)

Argument DIRECTORY-LIST is a list of directories to generate
"
  (loop for i in directory-list
        collect(make-directory i)))

(defun unity-build-missing-directories-list (directory-list)
  (let ((missing-dirs '()))
    (loop for i in directory-list
          collect(if (not (file-directory-p i))
                     (add-to-list  'missing-dirs i)))
    missing-dirs))