ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove unused code

Browse source
This commit is contained in:
Tom Willemse 2016-06-06 00:13:03 +02:00
parent 02fab2aa75
commit 69d68f772e
1 changed files with 0 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
emacs/.emacs.d/site-lisp/org-init.el
View file

@ -43,11 +43,6 @@
(with-eval-after-load 'org-crypt (with-eval-after-load 'org-crypt
(org-crypt-use-before-save-magic)) (org-crypt-use-before-save-magic))
(defun tagify (str)
"Remove dots, replace - with _ in STR."
(replace-regexp-in-string
"-" "_" (replace-regexp-in-string "\\." "" (downcase str))))
(defun oni:color-for (object) (defun oni:color-for (object)
"Generate a hex color by taking the first 6 characters of OBJECT's MD5 sum." "Generate a hex color by taking the first 6 characters of OBJECT's MD5 sum."
(format "#%s" (substring (md5 object) 0 6))) (format "#%s" (substring (md5 object) 0 6)))
@ -90,10 +85,6 @@ PLIST contains all the pertinent information."
(format "* ACQUIRE %s %s - %s \n SCHEDULED: <%s>" (format "* ACQUIRE %s %s - %s \n SCHEDULED: <%s>"
title episode name date)))) title episode name date))))
(defun oni:org-colors-for (names)
"Create an alist for NAMES with corresponding colors."
(mapcar (lambda (name) (cons name (oni:color-for name))) names))
(defun oni:note-template () (defun oni:note-template ()
(concat (concat
"* %<%c>\n" "* %<%c>\n"