From 683909185022d2d37d1e07c1aff849eeffc131ba Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 31 Dec 2020 23:48:34 +0530
Subject: Define interactive commands.

* ksh-report.el (ksh-discharge, ksh-scan1, ksh-scan2, ksh-scan3): New
interactive commands.
(ksh-path): New variable.
---
 ksh-report.el | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

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
-- 
cgit v1.2.3