Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
195 lines (171 sloc) 9.06 KB
;;; -*-lisp-*-
;;; My github page.
(in-package #:lml2)
(defparameter ** "Running the Feedback-Feedforward Loop of Life"
"Slogan for")
(defmacro :pubdate (date)
"Print the publication DATE."
`(html (:princ (concatenate 'string "<time datetime=\""
(local-time:now) :format
'((:year 4) #\-
(:month 2) #\-
(:day 2) #\T
(:hour 2) #\:
(:min 2) #\: (:sec 2) :gmt-offset-or-z))
"\" pubdate>" ,date "</time>"))))
(html-file-page ("index" :format :html5)
((:meta :charset "UTF-8"))
((:meta :name "description" :content "My github page"))
((:meta :name "keywords" :content "github, page, perusio, user"))
(:title (:princ (concatenate 'string "perusio github page: " **)))
;; Include Dean Edwards IE9.js.
;; For perfomance reasons: a trick from
(:comment "[if IE]><link/><![endif]")
(:comment "[if lt IE 9]><script src=\"js/libraries/IE9.js\"></script><![endif]
((:link :rel "stylesheet" :href "css/tinycss/libraries/reset.css"))
((:link :rel "stylesheet" :href "css/tinycss/libraries/fonts-min.css"))
((:link :rel "stylesheet" :href "css/tinycss/grids/base-grid.css"))
((:link :rel "stylesheet" :href "css/tinycss/module/mod_nav.css"))
((:link :rel "stylesheet" :href "css/tinycss/template/template.css"))
;; Grid.
((:link :rel "stylesheet" :href "css/"))
;; Fonts.
((:link :rel "stylesheet" :href "fonts/Delicious-web/stylesheet.css"))
((:link :rel "stylesheet" :href "fonts/CPMono-web/stylesheet.css"))
((:link :rel "stylesheet" :href "fonts/CartoGothic-Std/stylesheet.css"))
((:link :rel "stylesheet" :href "fonts/CCIcons-web/stylesheet.css"))
((:link :rel "stylesheet" :href "css/layout.css"))
((:link :rel "stylesheet" :href "css/style.css"))
) ; head
((:div :class "page")
((:div :class "line")
((:div :class "unit size3of48") "&nbsp;")
((:div :class "unit size30of48")
(:h1 "perusio")
(:h2 (:princ **)))
) ; header
((:section :id "top")
((:header :class "post-title")
(:h2 (( :a :href ".") "Rehersal for an introduction")))
(:p "My name is António Almeida I like coding and doing "
(:b "creative") " &mdash; how's that for a loaded word ;) &mdash; stuff in general.")
(:p "Introductions are brittle things. They are best viewed
from afar. Putting them under the microscope makes for an
awkward experience, both for the person introducing himself
or for the person hearing or reading it. So indulge me a
little and call your suspension of disbelief while I take
the stage to address you.")
(:p "I'm very much interested on the web and everything that
revolves around it. Which translates in to a lot of
stuff. By web I mean all technologies that enable it. From
the OS to the application. I consider that mobile makes part
of the web, understood as a way of providing streams that we
can get immersed in. The famous Robert Heinlein " ((:a :href "") "quote") ":")
(:p "Specialization is for insects.")
(:p "applies to the web. Therefore having a cross sectional
knowledge of the web stack is tantamount
to " (:b "grokking") " it. To use another Heinleinism.")
((:a :href "") "Drupal") " is my choice
for Content Management Systems, or in the case of
Drupal, " (:b "framework" ) " is more appropriate. Before
you jump to conclusions I don't think PHP is a \"great\"
language. But I find it interesting in a low tech sort of
way, since it's capable of achieving so much, while
hardly being the greatest language design under the
Sun. When I listen to language zealots (mostly Ruby
wannabe ninjas) trashing PHP I recall what the
great " ((:a :href "") "Nikolaus
Harnoncourt") " says about playing early music on modern
(:p "It's more important what you have in your head as a
performer of Early Music than the instrument that you play.")
(:p "Do you grok the manifold implications of this sentence
in the programming world?")
(:p ((:a :href "") "Nginx") " is a modern
high performance web server. It's now sort of an obsession
for me. I no longer use Apache and even never ever touched
I maintain my Nginx configs here, namely the
for " ((:a :href "") "running
Drupal with Nginx") ".")
(:p "I've been
using " ((:a :href "") "emacs") " since
I couldn't grok vi on a good old DECstation 5100 running
Ultrix. I came to Unix from VMS and specially its great
editor EDT. vi was a big jump backward. Today I use mostly vi
when I'm editing config files as root. For the rest, I'm a
man of simple tastes: I use emacs.")
(:p "I mantain
a " ((:a :href "" ) "github
fork") " of the \"official\" " ((:a :href "") "Magit") " repo on github. This fork
differs from the original repo only in the extent that a
debian build setup for creating the package is
incorporated. Basically it's a " (:b "debianization") " of
the official version. The official debian version available
on " ((:a :href "") "unstable (sid)") "
lags considerably from the current development version.")
(:p "I'm a
big " ((:a :href "") "Lisp") "
fan. I happen to think it's the " (:b "greatest") " language
ever invented. Lisp is a huge advantage for developing new
projects since it allows you to quickly hack something
together in order to try a concept. I use it a lot when
developing sites and products in Drupal. For instance: I
use " ((:a :href "") "clsql") " for data
migration tasks. This page was built in Lisp and then
compiled to HTML using a fork
of " ((:a :href "") "LML2") " I
mantain " ((:a :href "") "here")".")
(:p "I'm now a interested
in " ((:a :href "") "Lua")
": a language with a clear Lispy heritage. Even if
the syntax is rather different. My interest was
stoked by the
powerful " ((:a :href ""
) "Embedded Lua Module") " for
Nginx. And advanced features
like JIT compilation, prototypical inheritance and
(:p "Here is the list of all my projects on github: "
(:code ((:a :href "") ""))
(:p "I mantain a " ((:a :href "") "debian") " repository with some of the stuff I host here.")
(:p "Outside of coding I'm obsessed with " ((:a :href "") "Late medieval Italian music") " and " ((:a href "") "cinema") ".")
((:a :class "nav-top" :href "#top") "goto top")
((:div :class "license")
((:a :href "" :rel "license" :class "normalTip" :title "Licença CC-BY Portugal") "cb")
) ; content
(:pubdate "Updated February 11 2012")
) ; middle unit
((:div :class "unit size15of48 lastUnit")
((:div :class "sidebar-right")
(:aside ((:img :src "img/appa_photo_blog.png"))