code: new command create

Author: jcs090218

cmds/core/create.js

@@ -0,0 +1,67 @@
+/**
+ * Copyright (C) 2022 Jen-Chieh Shen
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 3, or (at your option)
+ * any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with GNU Emacs; see the file COPYING.  If not, write to the
+ * Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+ * Boston, MA 02110-1301, USA.
+ */
+
+"use strict";
+
+const init = require('./init');
+const child_process = require('child_process');
+
+exports.command = ['create [name]', 'new [name]'];
+exports.desc = 'create a new elisp project';
+exports.builder = {
+  name: {
+    description: 'new project name',
+    requiresArg: false,
+    type: 'string',
+  },
+};
+
+const TEMPLATE_URL = 'https://github.com/emacs-eask/template-elisp';
+
+exports.handler = async (argv) => {
+  const project_name = argv.name;
+
+  let proc = child_process.spawn('git', ['clone', TEMPLATE_URL, project_name],
+                                 { stdio: 'inherit' });
+
+  // You would just need to register the error event, or else it can't print
+  // the help instruction below.
+  proc.on('error', function () { });
+
+  proc.on('close', function (code) {
+    if (code == 0) {
+      console.log('✓ Done cloning the template project');
+      process.chdir(project_name);
+      cloned(argv);
+      return;
+    }
+    // Help instruction here!
+    console.log('✗ Error while cloning template project');
+    console.log('');
+    console.log('  [1] Make sure you have git installed and has the right permission');
+    process.stdout.write(`  [2] Failed because of the target directory isn't empty`);
+  });
+};
+
+
+/* Operations after cloned */
+async function cloned(argv) {
+  await init.create_eask_file();
+  UTIL.e_call(argv, 'core/create');
+}

cmds/core/init.js

@@ -23,20 +23,26 @@ const path = require('path');
 const fs = require('fs');
 const readline = require('readline');
 
-const EASK_FILE = path.join(process.cwd(), '/Eask');
+var EASK_FILE;
 
 var instance;  /* `readline` instance */
 
 exports.command = ['init'];
 exports.desc = 'create new Eask file in current directory';
 
 exports.handler = async ({}) => {
+  await create_eask_file();
+};
+
+async function create_eask_file(dir) {
   let basename = path.basename(process.cwd());
   instance = readline.createInterface({
     input: process.stdin,
     output: process.stdout
   });
 
+  EASK_FILE = path.join(process.cwd(), '/Eask');
+
   if (fs.existsSync(EASK_FILE)) {
     console.log('Eask file is already exists');
     process.exit(0);
@@ -71,7 +77,7 @@ Is this OK? (yes) `,
               }
             });
   instance.close();
-};
+}
 
 /*
  * Ask question with callback
@@ -83,3 +89,5 @@ function ask(question, callback) {
     instance.question(question, (answer) => { callback(answer); resolve(); });
   });
 }
+
+module.exports.create_eask_file = create_eask_file;

cmds/util/upgrade-eask.js

@@ -40,8 +40,8 @@ exports.handler = async (argv) => {
     // Help instruction here!
     console.log('✗ Failed to upgrade Eask, possible causes are:');
     console.log('');
-    console.log('  [1] Make sure you have git installed');
-    console.log('  [2] You probably have installed Eask with npm, try');
+    console.log('  [1] Make sure you have git installed and has the right permission');
+    console.log('  [2] You probably have installed Eask with npm, try the following command:');
     console.log('');
     process.stdout.write('    $ npm install -g emacs-eask/eask@latest');
   });

lisp/core/create.el

@@ -0,0 +1,58 @@
+;;; create.el --- create a new elisp project  -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;;
+;; Create a new elisp project,
+;;
+;;   $ eask create [name]
+;;
+;;
+;;  Initialization options:
+;;
+;;    [name]     new project name
+;;
+
+;;; Code:
+
+(load (expand-file-name
+       "../_prepare.el"
+       (file-name-directory (nth 1 (member "-scriptload" command-line-args))))
+      nil t)
+
+(defconst eask--template-project-name "template-elisp"
+  "Holds template project name.")
+
+(defun eask--replace-string-in-buffer (old new)
+  "Replace OLD to NEW in buffer."
+  (let ((str (buffer-string)))
+    (setq str (s-replace old new str))
+    (delete-region (point-min) (point-max))
+    (insert str)))
+
+;; XXX: we can't use `user-full-name' in batch-mode. It will always return
+;; empty string.
+(defun eask--get-user ()
+  "Return user name."
+  (string-trim (shell-command-to-string "git config user.name")))
+
+;; XXX: we can't use `user-mail-address' in batch-mode. It will always return
+;; empty string.
+(defun eask--get-mail ()
+  "Return user email."
+  (string-trim (shell-command-to-string "git config user.email")))
+
+(eask-start
+  (let ((template-package-file (expand-file-name (concat eask--template-project-name ".el"))))
+    (rename-file template-package-file eask-package-file)
+    (with-current-buffer (find-file eask-package-file)
+      (eask--replace-string-in-buffer eask--template-project-name (eask-package-name))
+      (eask--replace-string-in-buffer "{ SUMMARY }" (eask-package-description))
+      (eask--replace-string-in-buffer "{ YEAR }" (format-time-string "%Y"))
+      (eask--replace-string-in-buffer "{ FULL_NAME }" (eask--get-user))
+      (eask--replace-string-in-buffer "{ MAIL_ADDR }" (eask--get-mail))
+      (save-buffer))
+    (eask-msg "✓ Congratulations! Your new Elisp project is created in %s" eask-file-root)
+    (eask-msg "")
+    (eask-msg "Visit https://emacs-eask.github.io/ for quickstart guide and full documentation.")))
+
+;;; create.el ends here