hygguile

cozy and professional user-interfaces for everyone

settings:

buttons

(button "button")

(submit-button "submit-button")

(danger-submit-button "danger-submit-button")

(icon-button #:icon 'gear #:content "gear" #:background '(bg-teal-700) #:color '(text-stone-200 dark:text-stone-100) #:icon-css '(text-stone-100 dark:text-stone-100 text-xl) #:hover-background '(hover:bg-teal-900))

(icon-button #:icon 'user #:content "user" #:background '(bg-amber-400) #:color '(text-stone-900) #:hover-background '(hover:bg-amber-600) #:icon-css '(text-xl))

(icon-button #:icon 'airplane-tilt #:content "airplane-tilt" #:background '(bg-orange-700) #:color '(text-stone-200 dark:text-stone-100) #:icon-css '(text-stone-100 dark:text-stone-100 text-xl) #:hover-background '(hover:bg-orange-900))

typography

Sphinx of black quartz, judge my vow

(h1 "Sphinx of black quartz, judge my vow")

Sphinx of black quartz, judge my vow

(h2 "Sphinx of black quartz, judge my vow")

Sphinx of black quartz, judge my vow

(h3 "Sphinx of black quartz, judge my vow")

Sphinx of black quartz, judge my vow

(h4 "Sphinx of black quartz, judge my vow")

Sphinx of black quartz, judge my vow

(sub-h1 "Sphinx of black quartz, judge my vow")

Sphinx of black quartz, judge my vow

(sub-h2 "Sphinx of black quartz, judge my vow")

Sphinx of black quartz, judge my vow

(sub-h3 "Sphinx of black quartz, judge my vow")

Sphinx of black quartz, judge my vow

(sub-h4 "Sphinx of black quartz, judge my vow")

Sphinx of black quartz, judge my vow

(strong "Sphinx of black quartz, judge my vow")

Sphinx of black quartz, judge my vow

(p "Sphinx of black quartz, judge my vow")

Sphinx of black quartz, judge my vow

(em "Sphinx of black quartz, judge my vow")

Sphinx of black quartz, judge my vow

(mono "Sphinx of black quartz, judge my vow")

Sphinx of black quartz, judge my vow

(code "Sphinx of black quartz, judge my vow")

;;; A simple Guile Scheme HTTP server
(use-modules (web server))

(define (my-handler request request-body)
  (values '((content-type . (text/plain)))
          "Hello World!"))

(run-server my-handler)

(pre "\n;;; A simple Guile Scheme HTTP server\n(use-modules (web server))\n\n(define (my-handler request request-body)\n  (values '((content-type . (text/plain)))\n          \"Hello World!\"))\n\n(run-server my-handler)")

forms

some input:

(input #:label "some input:" #:name "input-1" #:placeholder "input")

some textarea:

(textarea #:label "some textarea:" #:name "textarea-1")