diff options
| -rw-r--r-- | haunt.scm | 78 |
1 files changed, 70 insertions, 8 deletions
@@ -14,11 +14,11 @@ ;;; along with this program. If not, see ;;; <http://www.gnu.org/licenses/>. -;; (define (add-to-load-path* directory) -;; (unless (member directory %load-path) -;; (add-to-load-path directory))) +(define (add-to-load-path* directory) + (unless (member directory %load-path) + (add-to-load-path directory))) -;; (add-to-load-path* "/home/dave/Code/guile-syntax-highlight") +(add-to-load-path* "/home/dave/Code/guile-syntax-highlight") (use-modules (haunt asset) (haunt builder blog) @@ -31,8 +31,8 @@ (haunt reader commonmark) (haunt site) (haunt utils) - ;; (syntax-highlight) - ;; (syntax-highlight scheme) + (syntax-highlight) + (syntax-highlight scheme) (sxml match) (sxml transform) (texinfo) @@ -183,6 +183,9 @@ free culture works available under the " ,%cc-by-sa-link " license.") `(pre (@ ,@attrs) ,(maybe-highlight-code source))))) +(define (highlight-scheme code) + `(pre ,(highlights->sxml (highlight lex-scheme code)))) + (define (static-page title file-name body) (lambda (site posts) (make-page file-name @@ -214,8 +217,7 @@ free culture works available under the " ,%cc-by-sa-link " license.") ,(anchor (string-append repo "-" version ".tar.gz") url) " — " - ,(anchor (string-append repo "-" version - ".tar.gz.asc") + ,(anchor "GPG signature" (string-append url ".asc")))))) releases)) (h2 "Requirements") @@ -319,6 +321,65 @@ functional, and reactive.") #:releases `(("0.1" ,(date 2015 11 12))))) +(define guile-sdl2-page + (project-page + #:name "Guile-SDL2" + #:file-name "guile-sdl2.html" + #:repo "guile-sdl2" + #:description + `((p "Guile-SDL2 provides " + ,(anchor "Guile Scheme" "https://gnu.org/s/guile") + " bindings for the " + ,(anchor "SDL2" "http://libsdl.org") + " C shared library. The bindings are written in pure Scheme +using Guile's foreign function interface.")) + #:usage + `((p "Guile-SDL2 provides modules in the " + (code "(sdl2 ...)") + " namespace, roughly organized how the SDL2 C header files are +organized. Low-level bindings are available in the" + (code "(sdl2 bindings ...)") + " namespace, bu these are not recommended for normal usage.") + (p "Additionally, SDL2 extension library bindings are available in the +following modules:") + (ul (li "SDL2_image: " (code "(sdl2 image)")) + (li "SDL2_mixer: " (code "(sdl2 mixer)")) + (li "SDL2_ttf: " (code "(sdl2 ttf)"))) + (p "Here is a short “hello, world” example program:") + ,(highlight-scheme + "(use-modules (sdl2) + (sdl2 render) + (sdl2 surface) + (sdl2 video)) + +(define (draw ren) + (let* ((surface (load-bmp \"hello.bmp\")) + (texture (surface->texture ren surface))) + (clear-renderer ren) + (render-copy ren texture) + (present-renderer ren) + (sleep 2))) + +(sdl-init) + +(call-with-window (make-window) + (lambda (window) + (call-with-renderer (make-renderer window) draw))) + +(sdl-quit)")) + #:requirements '("GNU Guile >= 2.0.9" + "SDL2 >= 2.0.0" + "SDL2_image >= 2.0.0" + "SDL2_mixer >= 2.0.0" + "SDL2_ttf >= 2.0.0" + "GNU Make" + "GNU pkg-config") + #:license "GNU LGPLv3+" + #:releases + `(("0.1.2" ,(date 2016 08 10)) + ("0.1.1" ,(date 2016 01 01)) + ("0.1.0" ,(date 2015 12 22))))) + (site #:title "dthompson" #:domain "dthompson.us" #:default-metadata @@ -331,6 +392,7 @@ functional, and reactive.") about-page projects-page sly-page + guile-sdl2-page (static-directory "css") (static-directory "fonts") (static-directory "images") |