Creating Attendance Sheets with Org Mode

Aug 23, 2025 18:03

I do not like taking attendance in class. Unfortunately, despite having paid very much to take the course, many students need the extra motivation to attend class. My Introduction to Philosophy classes average 35 students which makes calling every student by name more time-consuming than I would like. If I could remember names, I could take attendance quickly, but unfortunately, names have always been a problem for me. ¹ The best thing for me to do is to pass around a sign-in sheet.

Even though I’ve written almost everything in Org mode for over a decade now, I have always done these attendance sheets in a word processor. The problem is that the number of students enrolled would vary from semester to semester, and fitting everything into one page required adjusting column widths, row heights, etc., and it always seemed easier to do this in a word processor. This was only because I’ve never really done much with LaTeX tables. Finally, last semester, I decided to figure out how to make them in Org. It won’t be surprising to Emacs users that, in the end, it was far easier than using the word processor.

Just declare the tabularray package in the LaTeX header like this:

  #+LaTeX_HEADER: \usepackage{tabularray}

In the body, insert the table formatting codes ² and the Org table. Here’s a sample with names from 1000randomnames.com:

  #+ATTR_LATEX: :environment tblr :align hline{3-Z}={solid},row{2-Z}={f,10mm},colspec={XXXX}
 |   Name              |   Signature  |   Name            |   Signature  | 
 | Branch, Kassidy  |           | Graves, Amaya  |           | 
 | Duffy, Keenan    |           | Gentry, Micah |           | 
 | Fischer, Addisyn |           | Kaur, Amelie   |           |

Creating the table was still a slight pain. It involved pasting a column of names, then inserting the pipe character at the beginning of every line in the top half of the column, two pipe characters at the end of each line, then killing the bottom half of the column and inserting it as a rectangle at the right side of the top half. It wasn’t difficult using query-replace-regexp and a couple of rectangle operations, but even the slightly tedious task that will be repeated indefinitely is worth automating.

There were two parts that were tricky for me. The first was splitting the list at the correct row. If there were 34 students, then I needed two groups of 17 with the second group starting at row 18, but a class of 35 students required one group of 18 and another of 17 with the second group starting at row 19. I wanted the left column to be the larger for aesthetic reasons, and didn’t want to manually determine where to split the list. I solved it by first counting the lines in the list, then adding the remainder of a division by 2. This resulted in 34 for the class of 34, since dividing an even number has a remainder of 0, and 36 for the class of 35. I then divided that result in 2 and added 1, giving me the 18 and 19 respectively that I needed.

The second tricky part was the pasting the lines from the second half to the ends of the lines in the first half. The fortunate thing about using an editor as old as Emacs is that almost every conceivable question has been asked and answered online. That was fortunate for me, because I’m not sure I would have ever figured it out. You’ll see a few lines in the code below that split the last item in the kill-ring at line-breaks, and insert each resulting sub-string at the end of each line.

The rest is just inserting the characters to make it an Org table, killing an extra line, putting the columns in order, and inserting the LaTeX headers with a snippet. Here’s the result, with the usual disclaimer about my being an incompetent amateur and so on:

 ( defun  create-roll-sheet ()
  ( interactive)
   ;;  Append signature cells to each line.
  (goto-char (point-min))
  (replace-regexp  "$"  " |  | ")
   ;;  kill bottom half of buffer and move to top
  ( setq lines (count-lines (point-min) (point-max)))
  ( setq lines (+ lines (% lines 2) ))
  ( setq midpoint (+ (/ lines 2) 1))
  (goto-line midpoint)
  (kill-region (point) (point-max))
  (beginning-of-buffer)
   ;;  Append each line from kill-ring to remaining lines.
  ( dolist (cur-line-to-insert (split-string (current-kill 0)  "\n"))
    ( if (eobp)
        (newline)
      (move-end-of-line nil))
    (insert cur-line-to-insert)
    (forward-line))
   ;;  Prepend pipe character to each line and kill last line.
  (goto-char (point-min))
  (replace-regexp  "^"  "| ")
  (kill-whole-line)
   ;;  insert LaTeX table format and header lines
  (goto-char (point-min))
  (insert  "#+ATTR_LATEX: :environment tblr :align hline{3-Z}={solid},row{2-Z}={f,10mm},colspec={XXXX}\n| *Name*              | *Signature* | *Name*              | *Signature* | \n")
   ;;  Clean up table.
  (org-ctrl-c-ctrl-c)
   ;;  Insert LaTeX header.
  (goto-char (point-min))
  (yas-expand-snippet (yas-lookup-snippet  "roll-sheet")))

It’s 31 lines of code, but it wasn’t difficult. In fact, it took longer to write this blog post than to write the function.

To be honest, this is something that I only have to do maybe twice a semester. So, why bother? It’s fun and I get a sense of satisfaction from doing it, and that’s reason enough in itself. Still, there is good reason to automate something that you only rarely have to do. I think there are two kinds of tasks that deserve to be automated. The first is something involving several steps that you have to do constantly. The second is something involving several steps that you only do rarely, but since it’s done only rarely, it’s difficult to remember how it was accomplished previously. This task probably fits into neither category, but I still learned something about Elisp that I’m sure will be useful when have a problem that does.