From a0ae78120e475d5838ff711e70c80f9e6dd05e7b Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Thu, 31 Dec 2020 14:15:17 +0530 Subject: 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. --- ksh-discharge.el | 2 +- ksh-emacs-init.el | 3 --- ksh-scan2.el | 2 +- 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 -- cgit v1.2.3