diff options
| author | Arun Isaac | 2020-12-31 23:48:34 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-10-01 01:11:34 +0530 |
| commit | 683909185022d2d37d1e07c1aff849eeffc131ba (patch) | |
| tree | ee19b413a4824cdfc4c50006d5e32b41cd706b1a | |
| parent | d8ccb20c577c691ccb505331925746e0ae7762a1 (diff) | |
| download | ksh-reports-683909185022d2d37d1e07c1aff849eeffc131ba.tar.gz ksh-reports-683909185022d2d37d1e07c1aff849eeffc131ba.tar.lz ksh-reports-683909185022d2d37d1e07c1aff849eeffc131ba.zip | |
Define interactive commands.
* ksh-report.el (ksh-discharge, ksh-scan1, ksh-scan2, ksh-scan3): New
interactive commands.
(ksh-path): New variable.
| -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 |