diff options
| -rw-r--r-- | ksh-report.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/ksh-report.el b/ksh-report.el index ac31a62..1fc23b5 100644 --- a/ksh-report.el +++ b/ksh-report.el @@ -1,5 +1,22 @@ (require 'seq) +(defvar ksh-path (file-name-directory load-file-name)) + +(defun ksh-discharge () + (interactive) + (forms-find-file (expand-file-name "ksh-discharge.el" ksh-path))) + +(defun ksh-scan1 () + (interactive) + (error "Not yet implemented")) + +(defun ksh-scan2 () + (interactive) + (forms-find-file (expand-file-name "ksh-scan2.el" ksh-path))) + +(defun ksh-scan3 () + (interactive) + (forms-find-file (expand-file-name "ksh-scan3.el" ksh-path))) (defun biometry-subfloat (param-name param param-age percentile) (format |