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 <grfn@gws.fyi>
This commit is contained in:
		
							parent
							
								
									368e8d1edd
								
							
						
					
					
						commit
						9ead20ef9f
					
				
					 2 changed files with 35 additions and 0 deletions
				
			
		| 
						 | 
					@ -92,3 +92,25 @@
 | 
				
			||||||
 org-enforce-todo-dependencies nil
 | 
					 org-enforce-todo-dependencies nil
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 org-babel-clojure-backend 'cider)
 | 
					 org-babel-clojure-backend 'cider)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					(defun +grfn/insert-work-template ()
 | 
				
			||||||
 | 
					  (interactive)
 | 
				
			||||||
 | 
					  (goto-char (point-min))
 | 
				
			||||||
 | 
					  (forward-line)
 | 
				
			||||||
 | 
					  (insert "#+TODO: TODO(t) NEXT(n) ACTIVE(a) | DONE(d) PR(p) RUNNING(r) TESTING(D)
 | 
				
			||||||
 | 
					#+TODO: BLOCKED(b) BACKLOG(l) PROPOSED(o) | CANCELLED(c)
 | 
				
			||||||
 | 
					#+FILETAGS: @work
 | 
				
			||||||
 | 
					#+FILETAGS: @work
 | 
				
			||||||
 | 
					#+PROPERTY: Effort_ALL 0 4:00 8:00 12:00 20:00 32:00
 | 
				
			||||||
 | 
					#+PROPERTY: ESTIMATE_ALL 0 1 2 3 5 8
 | 
				
			||||||
 | 
					#+PROPERTY: STORY-TYPE_ALL Feature Bug Chore
 | 
				
			||||||
 | 
					#+PROPERTY: NOBLOCKING t
 | 
				
			||||||
 | 
					#+COLUMNS: %TODO %40ITEM(Task) %17EFFORT(Estimated){:} %CLOCKSUM(Time Spent) %17STORY-TYPE(Type) %TAGS"))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					(defun +grfn/insert-org-template ()
 | 
				
			||||||
 | 
					  (interactive)
 | 
				
			||||||
 | 
					  (pcase (buffer-file-name)
 | 
				
			||||||
 | 
					    ((s-contains "/work/") (+grfn/insert-work-template))))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					;;; TODO: this doesn't work?
 | 
				
			||||||
 | 
					(define-auto-insert "\\.org?$" #'grfn/insert-org-template t)
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -90,3 +90,16 @@ Returns nil if the regex did not match, non-nil otherwise"
 | 
				
			||||||
        ,@body
 | 
					        ,@body
 | 
				
			||||||
        (evil-indent beg (+ (line-end-position) 1))))
 | 
					        (evil-indent beg (+ (line-end-position) 1))))
 | 
				
			||||||
     (goto-line-char orig-line-char)))
 | 
					     (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))
 | 
				
			||||||
 | 
					 )
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue