Some functions for grading student papers in Emacs with org-mode

grading.org

Grading table

Name	Points	Grade	wc	id
Smith, Joan	10	A		Smith_Joan
Smith, John	7	B		Smith_Johan

Evaluations

Smith, Joan

My grading

Σ	10	A
Criterium 1 (2)	2
Criterium 2 (2)	2
Criterium 3 (4)	4
Criterium 4 (2)	2

Some notes

Comments

Hi Joan,
Comments to student

Smith, John

My grading

Σ	7	B
Criterium 1 (2)	2
Criterium 2 (2)	2
Criterium 3 (4)	2
Criterium 4 (2)	1

Some notes

Comments

Hi John,
Comments to student

Functions

Generate wordcounts (from file-table generated below)

(let (val)
  (dolist (file tab (reverse val))
    (let ((fn (car file)))
      (push
       (list
        fn
        (string-to-number (shell-command-to-string (format "pdftotext \"%s\" - | wc -w" fn)))
        (if (string-match "^[^/]+/\\([^\\.]+\\)" fn)
            (match-string 1 fn)
          "FEL")) val))))

Table of files

ls  -1 ./*.pdf

Link function

(org-id-goto id)
(org-map-entries
 (lambda ()
   (when (= (org-current-level) 2)
     (forward-char 3)
     (let* ((namn (buffer-substring-no-properties
                   (point)
                   (line-end-position)))
            (fornamn (cadr (split-string namn ", ")))
            (fn (car (pop files)))
            (fnrens (if (string-match "^[^/]+/\\([^\\.]+\\)" fn)
                        (match-string 1 fn)
                      "FEL")))
       (insert (org-make-link-string
                (concat "file:" fn) namn))
       (delete-region (point) (line-end-position))
       ;; (kill-line)
       (forward-line)
       (insert (format evf "*" fnrens "*" fornamn)))))
 t 'tree 'comment)

Evaluation format

%s** My evaluation
#+NAME: %s
| *Σ*               | 0 |   |
|-----------------+---+---|
| Criterium 1 (2) |   |   |
| Criterium 2 (2) |   |   |
| Criterium 3 (4) |   |   |
| Criterium 4 (2) |   |   |
#+TBLFM: @1$2=vsum(@2..@5)

%s** Comments
Hi %s,