diff options
| author | Arun Isaac | 2020-12-31 14:15:17 +0530 |
|---|---|---|
| committer | Arun Isaac | 2020-12-31 15:07:21 +0530 |
| commit | a0ae78120e475d5838ff711e70c80f9e6dd05e7b (patch) | |
| tree | 8a4412885f224d5508a9c74fd62e0908a3523f06 | |
| parent | 79da3ff61ffb5d3c825c37002115639ffdd0789f (diff) | |
| download | ksh-reports-a0ae78120e475d5838ff711e70c80f9e6dd05e7b.tar.gz ksh-reports-a0ae78120e475d5838ff711e70c80f9e6dd05e7b.tar.lz ksh-reports-a0ae78120e475d5838ff711e70c80f9e6dd05e7b.zip | |
Deprecate ksh-data-path.
* ksh-discharge.el, ksh-scan2.el, ksh-scan3.el (forms-file): Use
ksh-path instead of ksh-data-path.
* ksh-emacs-init.el (ksh-data-path): Delete variable.
| -rw-r--r-- | ksh-discharge.el | 2 | ||||
| -rw-r--r-- | ksh-emacs-init.el | 3 | ||||
| -rw-r--r-- | ksh-scan2.el | 2 | ||||
| -rw-r--r-- | ksh-scan3.el | 2 |
4 files changed, 3 insertions, 6 deletions
diff --git a/ksh-discharge.el b/ksh-discharge.el index 80c382b..07d32fc 100644 --- a/ksh-discharge.el +++ b/ksh-discharge.el @@ -3,7 +3,7 @@ (require 'ksh-forms) ;; Datafile path and fields -(setq forms-file (expand-file-name "discharge.dat" ksh-data-path)) +(setq forms-file (expand-file-name "data/discharge.dat" ksh-path)) (setq forms-number-of-fields (forms-enumerate '(ip-op-no patient-name age sex address admission-date diff --git a/ksh-emacs-init.el b/ksh-emacs-init.el index 1bd14ab..e9b933e 100644 --- a/ksh-emacs-init.el +++ b/ksh-emacs-init.el @@ -1,6 +1,3 @@ -;; Path to data files -(setq ksh-data-path (expand-file-name "data" ksh-path)) - ;; Printing settings (setq printer-name "HP_P2055DN_CPL") (setq lpr-switches diff --git a/ksh-scan2.el b/ksh-scan2.el index 22d8cb9..9bc34f9 100644 --- a/ksh-scan2.el +++ b/ksh-scan2.el @@ -4,7 +4,7 @@ (require 'ksh-report) ;; Datafile path and fields -(setq forms-file (expand-file-name "scan2.dat" ksh-data-path)) +(setq forms-file (expand-file-name "data/scan2.dat" ksh-path)) (setq forms-number-of-fields (forms-enumerate '(ip-op-no patient-name age sex visit-date lmp-date lmp-edd diff --git a/ksh-scan3.el b/ksh-scan3.el index 75389ff..537386e 100644 --- a/ksh-scan3.el +++ b/ksh-scan3.el @@ -4,7 +4,7 @@ (require 'ksh-report) ;; Datafile path and fields -(setq forms-file (expand-file-name "scan3.dat" ksh-data-path)) +(setq forms-file (expand-file-name "data/scan3.dat" ksh-path)) (setq forms-number-of-fields (forms-enumerate '(ip-op-no patient-name age sex visit-date lmp-date lmp-edd |