Cari Putnam
Semisal sedang chatting di FB, jika dimasukkan kata :putnam: , maka akan keluar emoticon dengan gambar wajah orang tidak jelas. Gambar tersebut adalah wajah dari Chris Putnam, ahli software Facebook.

Little Celtics Fan
Cara melihatnya adalah dengan membuka sebuah gambar di Facebook, klik kanan mouse lalu pilih View Image. Delete URL-nya hingga tanda slash (/).

Quote rahasia
Buka Friend list profil orang lain (bukan Friend list punya sendiri), lalu pilih View All dan pilih Everyone, pilih Highlight di paling bawah daftar teman. Kemudian akan ditemukan quote rahasia kecil, atau jika tidak kelihatan bisa mengklik “Ctrl+A”.

Konami Code
Bisa dilihat dengan mengklik background, lalu tekan tombol keyboard atas, atas, bawah, bawah, kiri, kanan, kiri, kanan, B, A, enter, klik mouse.

Bahasa bajak laut
Scroll Facebook hingga ke paling bawah Page, klik English(US) (atau Bahasa Indonesia jika menggunakan Bahasa Indonesia), lalu akan muncul pilihan English (Pirate) yang sangat lucu jika dipakai.

Source: dari sini

Masih banyak lagi modul-modul yang bagus untuk di implemen di cms drupal, tetapi menurut saya, modul-modul diatas sudah cukup untuk membangun sebuah web portal. Terakhir, mungkin diperlukan untuk membuat modul sendiri dan mengutak-atik theme system drupal jika modul dan theme yang ada belum dirasa memenuhi keinginan kita.

(open file-source "read")

untuk membaca file tersebut bisa menggunakan beberapa fungsi seperti read-file, read-buffer, read-char atau read-line, misalkan

(read-line input-file)

sedangkan untuk menulis suatu file juga bisa menggunakan fungsi-fungsi built-in yang disediakan seperti write-file, write-buffer, write-char atau write-line, misalkan

(write-line out-file "Hello World!")

Kita dapat membuat fungsi baru berdasarkan fungsi-fungsi tersebut untuk membuka file, membaca file tersebut kemudian menuliskan content dari file ke newlisp shell

(define (read-file-source file-source)
((set 'in-file (open file-source "read"))
(while (read-line in-file)
(write-line))
(close in-file)))

Setelah mencoba menggunakan fungsi-fungsi operasi file dan fungsi copy file yang telah dibuat pada postingan sebelumnya, maka akhirnya saya dapat membuat script file yang saya inginkan untuk meng-copy file-file yang ada atau didaftarkan pada suatu file

(define (copy-file-from-text-file file-text home-path dest-path)
(begin
(set 'in-file (open file-text "read"))
(while (set 'line-read (read-line in-file))
(begin
(set 'src (append home-path line-read))
(set 'dest (append dest-path line-read))
(my-copy-file src dest)))
(close in-file)))

Hehehe sederhana sekali yah, memang seharusnya suatu scripting language seperti newlisp dapat digunakan dengan mudah dan sederhana mungkin tetapi tetap powerfull untuk membantu programmer menyelesaikan task-task nya.

(copy-file file-src file-dest)

fungsi tersebut bisa digunakan tetapi jika file-dest terdapat path direktori pada file tujuan maka fungsi tersebut tidak bisa menghandle-nya. Berarti saya membutuhkan fungsi untuk mengambil direktori kemudian membuat direktori tersebut

(parse "path/to/a/file.txt" "/") akan me-return list ("path" "to" "a" "file.txt")

sedangkan untuk membuat direktori dari list nama direktori tersebut

(dotimes (i (- (length list-dest) 1))
(if (directory? (list-dest i))
(change-dir (list-dest i))
(begin
(make-dir (list-dest i))
(change-dir (list-dest i)))))

nah berarti saya sudah bisa membuat sebuah fungsi untuk copy file dengan direktorinya

(define (my-copy-file src dest)
(begin
(set 'working-dir (real-path))
(set 'src-file (read-file src))
(set 'list-dest (parse dest "/"))
(dotimes (i (- (length list-dest) 1))
(if (directory? (list-dest i))
(change-dir (list-dest i))
(begin
(make-dir (list-dest i))
(change-dir (list-dest i)))))
(write-file (last list-dest) src-file)
(change-dir working-dir)))

dan saya dapat memanggilnya dengan

(my-copy-file "file.txt" "path/to/a/file.txt")

jika folder path/to/a/ belum ada maka akan di-create oleh fungsi tersebut.

to be continued…