(blog ‘lucindo)

Fiz um pacote que é um conjunto de funções e macros para facilitar o uso do Postmodern.
Download: http://www.lucindo.com.br/lisp/postmodern-utils.tar.gz
É possível instalar com ASDF-Install:

* (require :asdf-install)
* (asdf-install:install “http://lucindo.com.br/lisp/postmodern-utils.tar.gz”)

Com ele é possível fazer o seguinte:

(eval-when (:execute)
(setf postmodern-utils:*db-name* “db-name”
postmodern-utils:*db-user* “username”
postmodern-utils:*db-pass* “password”
[…]

Warning: Isso deve ser muito manjado, eu que nunca tinha visto. Estou escrevendo só para não esquecer
Imagine o seguinte caso de uma aplicação web: o usuário executa uma ação e o servidor apenas precisa ser notificado, todos os dados necessários para uma eventual alteração da tela já estão presentes. É o caso por exemplo de […]

Brincando um pouco com Postmodern:

(eval-when (:compile-toplevel :load-toplevel :execute)
(require :postmodern))

(defpackage :pg-test
(:use :cl :postmodern))

(in-package :pg-test)

(defparameter *db-name* “lucindo”)
(defparameter *db-user* “lucindo”)
(defparameter *db-pass* “”)
(defparameter *db-host* “localhost”)

;; global connection
(eval-when (:execute)
(connect-toplevel *db-name* *db-user* *db-pass* *db-host*))

;; defines a table (and a CLOS class)
(deftable user ()
((id :type integer
:initarg :id
[…]

E não é que funciona! Usei:

Hunchentoot
HT-AJAX
CL-WHO

(eval-when (:compile-toplevel :load-toplevel :execute)
(require :hunchentoot)
(require :cl-who)
(require :ht-ajax))

(defpackage :ajax-test
(:use :cl :hunchentoot :cl-who)
(:export #:start-web #:stop-web))

(in-package :ajax-test)

;; local directory with lokris.js
(defparameter */static-local-dir* “/Users/lucindo/Documents/Lisp/tmp/”)
;; can be any url
(defparameter *ajax-handler-url* “/ajax”)
;; using lokris (very small)
(defparameter *ajax-processor* (ht-ajax:make-ajax-processor
[…]