Commit f637abaec660

Vincent Demeester <vincent@sbr.pm>
2016-02-08 14:28:33
Add util functions
main
1 parent f00fe66
Changed files (1)
.emacs.d
lisp
vde-functions.el
.emacs.d/lisp/vde-functions.el
@@ -25,4 +25,15 @@
   (and (featurep 'org-wl)(unload-feature 'org-wl t ))
   (and (featurep 'org)(unload-feature 'org t)))
 
+
+(defun vde/unsaved-changes ()
+  (interactive)
+  (diff-buffer-with-file (current-buffer)))
+
+(defun vde/find-file-as-sudo ()
+  (interactive)
+  (let ((file-name (buffer-file-name)))
+    (when file-name
+      (find-alternate-file (concat "/sudo::" file-name)))))
+
 (provide 'vde-functions)