fix: Correct eval command (#96)

* fix: Correct eval command

* fix test

* Fix compat

Author: jcs090218

lisp/core/eval.el

@@ -14,9 +14,12 @@
        (file-name-directory (nth 1 (member "-scriptload" command-line-args))))
       nil t)
 
+(require 'thingatpt)
+
 (eask-start
-  (eask-pkg-init)
   (let ((form (eask-argv 0)))
-    (with-temp-buffer (insert form) (eval-buffer))))
+    (with-temp-buffer
+      (insert (thing-at-point--read-from-whole-string form))
+      (eval-buffer))))
 
 ;;; core/eval.el ends here

test/commands/local/run.sh

@@ -50,6 +50,9 @@ eask run
 eask run test
 eask run -all
 
+# Exection
+eask eval '(progn (message "Hello World!~"))'
+
 # Linter
 eask lint checkdoc
 eask lint declare

test/development/compat.el

@@ -11,12 +11,14 @@
 ;;; Code:
 
 (require 'finder)
+(require 'thingatpt)
 
 ;;
 ;;; Test functions
 
 (defconst compat-functions
   '(ansi-color-filter-apply
+    thing-at-point--read-from-whole-string
     ls-lisp-format-file-size
     lsh
     package--alist