update readme

[dot-emacs] / my-init.org

diff --git a/my-init.org b/my-init.org
index 6d698da5440469124630f21b0a2d84f2b2c0db80..b854dbe01a2f6d1bf79f086a8584dd4bc3eb0600 100644 (file)
--- a/my-init.org
+++ b/my-init.org
@@ -2332,6 +2332,9 @@ unchecked some stuff so that it inherits from default.
 #+begin_src emacs-lisp
 
 
+
+
+
 (defun next-backup-dir ()
 "In a directory listing from rsync -n,
 Go to the next directory based on where the cursor is."
@@ -8399,6 +8402,31 @@ text-scale-reset
 :PROPERTIES:
 :CUSTOM_ID: 0e7f83a5-600e-4016-af98-95904300c016
 :END:
+insert-apache
+[
+#+begin_src emacs-lisp
+(defun insert-apache ()
+  (interactive)
+  (beginning-of-line)
+  (let ((beg (point)))
+    (insert "Copyright (C) 2016 Ian Kelling\n")
+    (insert "\n")
+    (insert "Licensed under the Apache License, Version 2.0 (the \"License\");\n")
+    (insert "you may not use this file except in compliance with the License.\n")
+    (insert "You may obtain a copy of the License at\n")
+    (insert "\n")
+    (insert "    http://www.apache.org/licenses/LICENSE-2.0\n")
+    (insert "\n")
+    (insert "Unless required by applicable law or agreed to in writing, software\n")
+    (insert "distributed under the License is distributed on an \"AS IS\" BASIS,\n")
+    (insert "WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.\n")
+    (insert "See the License for the specific language governing permissions and\n")
+    (insert "limitations under the License.\n")
+    (comment-region beg (point))))
+(global-set-key (kbd "C-M-0") 'insert-apache)
+#+end_src
+]
+
 *** C-S-0
 :PROPERTIES:
 :CUSTOM_ID: d1706bc7-7cf0-4b49-87d0-15bf76eaca5f