From fc64ec78bd73902d3fec035e2718da6fe33ef41a Mon Sep 17 00:00:00 2001
From: Adam Porter <adam@alphapapa.net>
Date: Wed, 3 Jan 2018 11:16:14 -0600
Subject: [PATCH] Make nicer

---
 org-agenda-ng.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/org-agenda-ng.el b/org-agenda-ng.el
index e03203c..34cd7fa 100644
--- a/org-agenda-ng.el
+++ b/org-agenda-ng.el
@@ -56,10 +56,10 @@
 ;;;; Commands
 
 (cl-defun org-agenda-ng--agenda (&key files pred)
-  (unless files
-    (setq files (buffer-file-name (current-buffer))))
-  (unless (listp files)
-    (setq files (list files)))
+  (setq files (cl-typecase files
+                (null (list (buffer-file-name (current-buffer))))
+                (list files)
+                (string (list files))))
   (mapc 'find-file-noselect files)
   (let* ((org-use-tag-inheritance t)
          (entries (-flatten