update url and remove functions that are in stdlib

Author: jcubic

editor/app.scm

@@ -17,46 +17,12 @@
   (print x)
   x)
 
-(define-macro (define-global first . rest)
-  "(define-global var value)
-   (define-global (name . args) body)
-
-   Macro that define functions or variables in global context, so they can be used
-   inside let and get let variables in closure, Useful for universal macros."
-  (if (pair? first)
-      (let ((name (car first)))
-        `(lips.env.set ,(symbol->string name) (lambda ,(cdr first) ,@rest)))
-      `(lips.env.set ,(symbol->string first) ,(car rest))))
-
-(define-macro (globalize expr . rest)
-  "(globalize expr)
-
-   Macro will get the value of the expression and add each method as function to global
-   scope."
-  (let ((obj (eval expr (current-environment)))
-        (make-name (if (pair? rest)
-                       (let ((pre (symbol->string (car rest))))
-                         (lambda (name) (string->symbol (concat pre name))))
-                       string->symbol)))
-    `(begin
-       ,@(filter pair?
-                 (map (lambda (key)
-                        (if (function? (. obj key))
-                            (let* ((fname (gensym))
-                                   (args (gensym)))
-                              `(define-global (,(make-name key) . ,args)
-                                 (apply (. ,expr ,key) ,args)))))
-                        (array->list (--> Object (keys obj))))))))
-
-
 ;; setup isomorphic-git and global fs methods as functions
 (define fs (let* ((fs (new LightningFS "fs"))
                   (pfs fs.promises))
              (git.plugins.set "fs" fs)
              pfs))
 
-
-
 (define (new-repo dir)
   "Prepare new git repo with base app"
   (let ((dir (if (null? (match #/^\// dir)) (concat "/" dir) dir)))
@@ -86,7 +52,7 @@
                                                        (console.log msg))))
                (console.log (concat "Registration succeeded. Scope is " req.scope)))
              (catch (e)
-                    (console.log (concat "Registration failed " e)))))
+                    (console.log (concat "Registration failed " (repr e))))))
 
 (define refresh-editors (debounce (lambda ()
                                     (for-each (lambda (editor)

editor/index.html

@@ -10,7 +10,7 @@
     <![endif]-->
     <script src="bundle-b.js"></script>
     <script src="bundle-a.js"></script>
-    <script src="../../repo/dist/lips.js"></script>
+    <script src="https://cdn.jsdelivr.net/gh/jcubic/lips@devel/dist/lips.min.js"></script>
     <script src="https://cdn.jsdelivr.net/gh/jcubic/lips@devel/lib/js/terminal.js"></script>
     <script src="https://cdn.jsdelivr.net/gh/jcubic/lips@devel/lib/js/prism.js"></script>
     <link rel="stylesheet" href="style.css"/>