refactor(workflow): Simplify indentation logic

Author: jcs090218

lisp/generate/workflow/github.el

@@ -39,16 +39,16 @@
             (search-backward "{ EMACS_VERSION }" nil t)
             (delete-region (point) (line-end-position))
             (end-of-line)
-            (let ((column (current-column)))
+            (let ((spaces (spaces-string (current-column))))
               (delete-region (line-beginning-position) (line-end-position))
               (when (version<= minimum-version "26.1")
-                (insert (spaces-string column) "- 26.3" "\n"))
+                (insert spaces "- 26.3" "\n"))
               (when (version<= minimum-version "27.1")
-                (insert (spaces-string column) "- 27.2" "\n"))
+                (insert spaces "- 27.2" "\n"))
               (when (version<= minimum-version "28.1")
-                (insert (spaces-string column) "- 28.2" "\n"))
+                (insert spaces "- 28.2" "\n"))
               (when (version<= minimum-version "29.1")
-                (insert (spaces-string column) "- snapshot"))))
+                (insert spaces "- snapshot"))))
           (save-buffer))
         "done ✓")
       (eask-info "✓ Successfully created the yaml file in `%s`" filename))))

lisp/generate/workflow/travis-ci.el

@@ -37,16 +37,16 @@
             (search-backward "{ EMACS_VERSION }" nil t)
             (delete-region (point) (line-end-position))
             (end-of-line)
-            (let ((column (current-column)))
+            (let ((spaces (spaces-string (current-column))))
               (delete-region (line-beginning-position) (line-end-position))
               (when (version<= minimum-version "26.1")
-                (insert (spaces-string column) "- EMACS_CI=emacs-26-3" "\n"))
+                (insert spaces "- EMACS_CI=emacs-26-3" "\n"))
               (when (version<= minimum-version "27.1")
-                (insert (spaces-string column) "- EMACS_CI=emacs-27-2" "\n"))
+                (insert spaces "- EMACS_CI=emacs-27-2" "\n"))
               (when (version<= minimum-version "28.1")
-                (insert (spaces-string column) "- EMACS_CI=emacs-28-2" "\n"))
+                (insert spaces "- EMACS_CI=emacs-28-2" "\n"))
               (when (version<= minimum-version "29.1")
-                (insert (spaces-string column) "- EMACS_CI=emacs-snapshot"))))
+                (insert spaces "- EMACS_CI=emacs-snapshot"))))
           (save-buffer))
         "done ✓")
       (eask-info "✓ Successfully created the yaml file in `%s`" filename))))