ryuslash/undone
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Oops, should have been more careful

Browse source
This commit is contained in:
Tom Willemsen 2012-08-14 21:27:24 +02:00
parent 7376a87f72
commit 252e766648
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
undone/main.scm
View file

@ -24,8 +24,8 @@
(let* ((xdg (getenv "XDG_CONFIG_HOME")) (let* ((xdg (getenv "XDG_CONFIG_HOME"))
(home (getenv "HOME")) (home (getenv "HOME"))
(rc-file-name "undonerc.scm") (rc-file-name "undonerc.scm")
(xdg-rc-file (string-append xdg "/" rc-file-name)) (xdg-rc-file (string-append xdg "/undone/" rc-file-name))
(home-rc-file (string-append home "/" rc-file-name))) (home-rc-file (string-append home "/.undone/" rc-file-name)))
(if (and xdg (file-exists? xdg-rc-file)) (if (and xdg (file-exists? xdg-rc-file))
xdg-rc-file xdg-rc-file
home-rc-file))) home-rc-file)))