pyrox.dev
1--- a/src/gnuplot/gnuplot.lisp
2+++ b/src/gnuplot/gnuplot.lisp
3@@ -24,8 +24,13 @@
4
5 (in-package :math/gnuplot)
6
7-(defparameter *default-gnuplot-direcroty*
8- (ensure-directories-exist #P"~/gnuplot/"))
9+
10+
11+(defun default-gnuplot-directory ()
12+ (let ((directory (merge-pathnames
13+ (make-pathname :directory '(:relative "gnuplot"))
14+ (user-homedir-pathname))))
15+ (ensure-directories-exist directory)))
16
17 ;;;; (directory-namestring *default-gnuplot-direcroty*)
18
19@@ -33,9 +38,9 @@
20 (assert (stringp f-name))
21 (assert (stringp f-ext))
22 (if (string= "" f-ext)
23- (concatenate 'string (directory-namestring *default-gnuplot-direcroty*)
24+ (concatenate 'string (directory-namestring (default-gnuplot-directory))
25 f-name f-ext)
26- (concatenate 'string (directory-namestring *default-gnuplot-direcroty*)
27+ (concatenate 'string (directory-namestring (default-gnuplot-directory))
28 f-name "." f-ext)))
29
30 (defun find-font-family (&key (family "Times New Roman"))
31
32Diff finished. Fri Mar 10 20:05:26 2023