Changeset 11185


Ignore:
Timestamp:
03/04/07 19:08:11 (15 years ago)
Author:
piso
Message:

work in progress

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/examples/init.lisp

    r11182 r11185  
    11;;; init.lisp
    2 ;;; $Id: init.lisp,v 1.35 2007-03-04 17:57:18 piso Exp $
     2;;; $Id: init.lisp,v 1.36 2007-03-04 19:08:11 piso Exp $
    33
    44;;; ~/.j/init.lisp (if it exists) is loaded automatically when j starts up.
    5 
    6 (defun load-theme (name)
    7   (let ((filename (concatenate 'string "/home/peter/depot/j/themes/" name ".lisp")))
    8     (unless (probe-file filename)
    9       (error "file not found: ~A" filename))
    10     (kill-theme)
    11     (load filename)
    12     (reset-display)
    13     t))
    14 
    15 (defun hostname ()
    16   (when (probe-file "/etc/hostname")
    17     (with-open-file (f "/etc/hostname")
    18       (read-line f))))
    19 
    20 (let ((hostname (hostname)))
    21   (when hostname
    22     (unless (member hostname '("mars" "prufrock") :test #'string=)
    23       (load-theme "AnokhaClassic"))))
    245
    256(defun java-version ()
Note: See TracChangeset for help on using the changeset viewer.