From 9ead20ef9f860cd0eb3acc4397499109db99fb95 Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Tue, 23 Jun 2020 10:25:02 -0400 Subject: feat(g/emacs): Add template for work org files This includes an attempt at making this work with auto-insert, but that didn't seem to have any effect - can just call it manually now Change-Id: I0eac267b7d3387efd84a2dd0d32b1364fa06f328 Reviewed-on: https://cl.tvl.fyi/c/depot/+/563 Reviewed-by: glittershark --- users/glittershark/emacs.d/utils.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'users/glittershark/emacs.d/utils.el') diff --git a/users/glittershark/emacs.d/utils.el b/users/glittershark/emacs.d/utils.el index d6d1d5722b..c595b46ce2 100644 --- a/users/glittershark/emacs.d/utils.el +++ b/users/glittershark/emacs.d/utils.el @@ -90,3 +90,16 @@ Returns nil if the regex did not match, non-nil otherwise" ,@body (evil-indent beg (+ (line-end-position) 1)))) (goto-line-char orig-line-char))) + +(pcase-defmacro s-starts-with (prefix) + `(pred (s-starts-with-p ,prefix))) + +(pcase-defmacro s-contains (needle &optional ignore-case) + `(pred (s-contains-p ,needle + ,@(when ignore-case (list ignore-case))))) + +(comment + (pcase "foo" + ((s-contains "bar") 1) + ((s-contains "o") 2)) + ) -- cgit 1.4.1