Feature/brainstorming

projects/hello-world/hello-world.asd

@@ -0,0 +1,10 @@
+(asdf:defsystem :hello-world
+  :description "A simple Hello World project"
+  :version "1.0.0"
+  :author "Your Name"
+  :license "MIT"
+  :depends-on (:drakma      ; HTTP client
+               :cl-json     ; JSON parsing
+               :str)        ; String utilities
+  :components ((:file "package")
+               (:file "hello-world")))

projects/hello-world/hello-world.lisp

@@ -0,0 +1,32 @@
+(in-package :hello-world)
+
+;; Basic hello world
+(defun hello ()
+  (format t "Hello, World!~%"))
+
+;; Function using string library
+(defun make-greeting (name)
+  (str:concat "Hello, " name "!"))
+
+;; Function to demonstrate HTTP library usage
+(defun fetch-data ()
+  (format t "Fetching data from httpbin...~%")
+  (let ((response (drakma:http-request "http://httpbin.org/get")))
+    (format t "Received response of ~A bytes~%" (length response))
+    (format t "First 100 characters: ~A~%"
+            (subseq (flexi-streams:octets-to-string response)
+                    0 (min 100 (length response))))))
+
+;; Function using JSON library - FIXED VERSION
+(defun fetch-json-data ()
+  (format t "Fetching and parsing JSON data...~%")
+  (let* ((response-bytes (drakma:http-request "http://httpbin.org/get"))
+         (response-string (flexi-streams:octets-to-string response-bytes)))
+    (cl-json:decode-json-from-string response-string)))
+
+;; Main function
+(defun main ()
+  (hello)
+  (format t "~A~%" (make-greeting "Common Lisp Developer"))
+  (fetch-data)
+  (fetch-json-data))

projects/hello-world/package.lisp

@@ -0,0 +1,12 @@
+(defpackage :hello-world
+  (:use :cl)
+  (:import-from :drakma :http-request)
+  (:import-from :cl-json :decode-json-from-string)
+  (:import-from :str :concat)
+  (:export :main
+           :hello
+           :fetch-data
+           :fetch-json-data
+           :make-greeting))
+
+(in-package :hello-world)