File: test4.esh

package info (click to toggle)
esh 0.8-7
  • links: PTS
  • area: main
  • in suites: sarge, woody
  • size: 508 kB
  • ctags: 542
  • sloc: ansic: 3,608; lisp: 166; makefile: 72
file content (21 lines) | stat: -rw-r--r-- 310 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 

#
# Place these lines into your ".eshrc".
#

(define dir-names (hash-make))

(hash-put (dir-names) "/home/ivan/src/esh" "Esh source code")

(prompt ~(push (get PWD))
	~(push (hash-get (dir-names) (top)))
	"["
	~(rot)
	~(if ~(rot)
	     ~(squish " => " (top))
	     "")
	"]$ "
	~(null (pop))
	~(null (pop)))