diff options
| author | Tharre <tharre3@gmail.com> | 2015-04-06 16:41:29 +0200 |
|---|---|---|
| committer | Tharre <tharre3@gmail.com> | 2016-10-07 19:42:55 +0000 |
| commit | 6c9ecd4bc57a318f9b8663cb476efa2945de716b (patch) | |
| tree | 8752a60bd59aff898868139a460678f09464dfd9 /shell/_emacs/site-lisp/util.el | |
| parent | b76107ee2d8698671a6fa9d732ea86e32f371e2d (diff) | |
| download | dotfiles-6c9ecd4bc57a318f9b8663cb476efa2945de716b.tar.gz dotfiles-6c9ecd4bc57a318f9b8663cb476efa2945de716b.tar.xz dotfiles-6c9ecd4bc57a318f9b8663cb476efa2945de716b.zip | |
Initial commit, add everything else
Diffstat (limited to 'shell/_emacs/site-lisp/util.el')
| -rw-r--r-- | shell/_emacs/site-lisp/util.el | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/shell/_emacs/site-lisp/util.el b/shell/_emacs/site-lisp/util.el new file mode 100644 index 0000000..b5bdc10 --- /dev/null +++ b/shell/_emacs/site-lisp/util.el @@ -0,0 +1,36 @@ +(defun eval-and-replace () + "Replace the preceding sexp with its value." + (interactive) + (forward-char) ;; for evil normal state + (backward-kill-sexp) + (condition-case nil + (prin1 (eval (read (current-kill 0))) + (current-buffer)) + (error (message "Invalid expression") + (insert (current-kill 0))))) + +(defun lorem () + "Insert a lorem ipsum." + (interactive) + (insert "Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do " + "eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim" + "ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut " + "aliquip ex ea commodo consequat. Duis aute irure dolor in " + "reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla " + "pariatur. Excepteur sint occaecat cupidatat non proident, sunt in " + "culpa qui officia deserunt mollit anim id est laborum.")) + +(defun insert-date () + "Insert a time-stamp according to locale's date and time format." + (interactive) + (insert (format-time-string "%c" (current-time)))) + +(defun indent-buffer () + (interactive) + (indent-region (point-min) (point-max))) + +(defun untabify-buffer () + (interactive) + (untabify (point-min) (point-max))) + +(provide 'util) |