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

Fix usage without XDG_*_HOME

Browse source 
`concatenate' does not work as I thought, cannot handle list
arguments, except `nil'.
This commit is contained in:
Tom Willemsen 2013-04-06 15:39:47 +02:00
parent 5ca43f20ca
commit ce8cfd58f4
1 changed files with 14 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/clark.lisp
View file

@ -107,19 +107,23 @@ The result contains the url, name and the description of the bookmark."
(defun get-db-location ()
"Get the location of the database."
(pathname
(apply 'concatenate 'string
(or (sb-ext:posix-getenv "XDG_DATA_HOME")
(list (sb-ext:posix-getenv "HOME") "/.local/share"))
'("/clark/bookmarks.db"))))
(let ((xdg (sb-ext:posix-getenv "XDG_DATA_HOME"))
(home (sb-ext:posix-getenv "HOME")))
(pathname
(apply 'concatenate 'string
(or xdg home)
(unless xdg "/.local/share")
'("/clark/bookmarks.db")))))
(defun get-rc-location ()
"Get the location of the RC file."
(pathname
(apply 'concatenate 'string
(or (sb-ext:posix-getenv "XDG_CONFIG_HOME")
(list (sb-ext:posix-getenv "HOME") "/.config"))
'("/clark/rc.lisp"))))
(let ((xdg (sb-ext:posix-getenv "XDG_CONFIG_HOME"))
(home (sb-ext:posix-getenv "HOME")))
(pathname
(apply 'concatenate 'string
(or xdg home)
(unless xdg "/.config")
'("/clark/rc.lisp")))))
(defun get-tag-id (name)
"Get the rowid of tag NAME."