#!/usr/local/bin/scsh -s
!#
;; Simple script to create "bookmarks" of directories, saved to the
;; '~/.bookmarks' directory. Especially useful when you have to
;; explore very deep filesystems that might not be your own.
;; Tomer Altman taltman at ocf.berkeley.edu
(display "Bookmark name: ")
(define bookmark-name (read-line))
(create-symlink (absolute-file-name ".")
(string-append (home-dir)
"/.bookmarks/"
bookmark-name)
'query)
(display "Bookmark ")
(display bookmark-name)
(display " created.")
(newline)
