diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2020-08-05 12:56:54 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-08-05 12:56:54 -0700 |
| commit | 8a89bf241271af4eb1ca82e5da0425a3771c5fc2 (patch) | |
| tree | d1a70acce48f28483af93a466c85930738871843 /.emacs.d/site-lisp | |
| parent | cacd6f8c5a3d66bc5dfeafb0388422d0e89527c2 (diff) | |
| download | dotfiles-8a89bf241271af4eb1ca82e5da0425a3771c5fc2.tar.gz | |
case->cl-case
Diffstat (limited to '.emacs.d/site-lisp')
| -rw-r--r-- | .emacs.d/site-lisp/org-fate.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/.emacs.d/site-lisp/org-fate.el b/.emacs.d/site-lisp/org-fate.el index b0a1ee87..58e40627 100644 --- a/.emacs.d/site-lisp/org-fate.el +++ b/.emacs.d/site-lisp/org-fate.el @@ -40,6 +40,7 @@ ;;; Code: +(require 'cl-lib) (require 'subr-x) (defgroup org-fate nil @@ -74,7 +75,7 @@ Org-mode document." (let ((results '()) (total 0)) (cl-loop repeat 4 - do (case (1+ (random 6)) + do (cl-case (1+ (random 6)) ((1 2) (push "⮋" results) (setq total (1- total))) |