summaryrefslogtreecommitdiff
path: root/conf/km-func.el
diff options
context:
space:
mode:
authorKyle Meyer <meyerkya@gmail.com>2013-01-09 11:43:10 -0500
committerKyle Meyer <meyerkya@gmail.com>2013-01-09 12:06:26 -0500
commitf5238f044d2f142f1940b93e3761e1f5bfd7ef7c (patch)
treef8891973414827fcd50768c7eefd425f2ac8fae7 /conf/km-func.el
parente4028f83dab75489a0bd8fe0e2a8fa4abf2a95ee (diff)
downloademacs.d-f5238f044d2f142f1940b93e3761e1f5bfd7ef7c.tar.gz
py functions: random assingment, shebang, exit
Diffstat (limited to 'conf/km-func.el')
-rw-r--r--conf/km-func.el20
1 files changed, 20 insertions, 0 deletions
diff --git a/conf/km-func.el b/conf/km-func.el
index 48a2f35..3366363 100644
--- a/conf/km-func.el
+++ b/conf/km-func.el
@@ -25,3 +25,23 @@
name (file-name-nondirectory new-name)))))))
(global-set-key (kbd "C-x C-r") 'km/rename-current-buffer-file)
+
+(defun km/shebang (&optional lang)
+ (interactive "s\language (default python):")
+ (if (= (length lang) 0)
+ (setq lang "python"))
+ (insert "#!/usr/bin/env " lang "\n"))
+(global-set-key (kbd "C-c s") 'km/shebang)
+
+(defun km/insert-random-string (&optional strlen)
+ "Insert a random string (default length: 5)"
+ (interactive)
+ (unless strlen
+ (setq strlen 5))
+ (let (mycharset (ii 0) )
+ (setq mycharset ["a" "b" "c" "d" "e" "f" "g" "h" "i"
+ "j" "k" "l" "m" "n" "o" "p" "q" "r"
+ "s" "t" "u" "v" "w" "x" "y" "z"])
+ (while (< ii strlen)
+ (insert (elt mycharset (random (length mycharset))))
+ (setq ii (1+ ii)))))