From 96ee4bd0bd7b5cc8a6d9ca918ede26e82a9b20a7 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sat, 12 Jan 2013 12:44:44 -0500 Subject: glob init files files for loading --- conf/km-func.el | 47 ----------------------------------------------- 1 file changed, 47 deletions(-) delete mode 100644 conf/km-func.el (limited to 'conf/km-func.el') diff --git a/conf/km-func.el b/conf/km-func.el deleted file mode 100644 index 3366363..0000000 --- a/conf/km-func.el +++ /dev/null @@ -1,47 +0,0 @@ -;; http://whattheemacsd.com/ -;; whitespace cleanup -(defun km/cleanup-buffer () - (interactive) - (untabify (point-min) (point-max)) - (delete-trailing-whitespace) - (set-buffer-file-coding-system 'utf-8)) -(add-hook 'before-save-hook 'km/cleanup-buffer) - -(defun km/rename-current-buffer-file () - "Renames current buffer and file it is visiting." - (interactive) - (let ((name (buffer-name)) - (filename (buffer-file-name))) - (if (not (and filename (file-exists-p filename))) - (error "Buffer '%s' is not visiting a file!" name) - (let ((new-name (read-file-name "New name: " filename))) - (if (get-buffer new-name) - (error "A buffer named '%s' already exists!" new-name) - (rename-file filename new-name 1) - (rename-buffer new-name) - (set-visited-file-name new-name) - (set-buffer-modified-p nil) - (message "File '%s' successfully renamed to '%s'" - 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))))) -- cgit v1.2.3