(define-module (guix extensions hello)
  #:use-module ((guix scripts))      ;define-command, category, synopsis, etc.

  ;;#:use-module (my module world)

  #:export (guix-hello))

(define (my-path)
  (canonicalize-path
   (string-append (dirname (current-filename)) "/../../my")))


(define-command (guix-hello . args)
  (category plumbing)
  (synopsis "hello world")

  (begin
    (format #t "hello~%")
    (format #t "path: ~s~%" (my-path))
    (add-to-load-path (my-path))
    (format #t "load-path: ~%")
    (for-each (lambda (path)
                (format #t "  ~s~%" path))
              %load-path)
    (for-each (lambda (what)
                (format #t "~s: ~s~%" what (%search-load-path what)))
              (list "top" "sub" "module/sub"))))