More updates

anil/defuns.el

@@ -28,10 +28,38 @@
 
 
 (defun stabby-lambda()
-  (interactive)
   "Convert lambda to stabby lambda"
+  (interactive)
   ;; (replace-regexp "lambda" "->" (match-string 1))
   (replace-regexp "lambda[\s]*{ *|\\([^|]*\\)|" "-> (\\1) {" (match-string 1))
   (replace-regexp "lambda[\s]*{" "-> {" (match-string 1))
 
   )
+
+(defun revert-all-buffers ()
+  "Refreshes all open buffers from their respective files."
+  (interactive)
+  (dolist (buf (buffer-list))
+    (with-current-buffer buf
+      (when (and (buffer-file-name) (not (buffer-modified-p)))
+        (revert-buffer t t t))))
+  (message "Refreshed open files."))
+
+
+;; Function to launch a google search
+(defun google-search ()
+  "googles a query or a selected region"
+  (interactive)
+  (browse-url
+   (concat
+    "http://www.google.com/search?q="
+    (if mark-active
+        (buffer-substring (region-beginning) (region-end))
+      (read-string "Google: ")))))
+
+
+(defun eshell/clear ()
+  "Clear the eshell buffer."
+  (let ((inhibit-read-only t))
+    (erase-buffer)
+    (eshell-send-input)))

anil/key-bindings.el

@@ -41,7 +41,11 @@
 
 (global-set-key "\C-c \C-l" 'stabby-lambda)
 
+;; Ace jump
 (define-key global-map (kbd "C-c j") 'ace-jump-mode)
+(global-set-key (kbd "C-c SPC") 'ace-jump-char-mode)
+(global-set-key (kbd "C-<return>") 'ace-jump-line-mode)
+
 
 (global-set-key (kbd "C-S-c C-S-c") 'mc/edit-lines)
 
@@ -70,6 +74,8 @@
 
 ;; helm M-x
 (global-set-key (kbd "M-x") 'helm-M-x)
+(global-set-key "\C-x\C-m" 'helm-M-x)
+(global-set-key "\C-c\C-m" 'helm-M-x)
 
 ;; browse kill ring
 (global-set-key "\C-cy" 'browse-kill-ring)
@@ -84,9 +90,6 @@
   (define-key global-map "\M-3" #'insert-pound))
 
 
-(global-set-key (kbd "C-c SPC") 'ace-jump-char-mode)
-(global-set-key (kbd "C-<return>") 'ace-jump-line-mode)
-
 
 (provide 'key-bindings)
 ;;; key-bindings.el ends here

anil/preferences.el

@@ -62,6 +62,9 @@
 (setq ediff-diff-options "-w")
 
 
+;; query replace regex
+(defalias 'qrr 'query-replace-regexp)
+
 ;;(setq-default indent-tabs-mode nil)
 (defalias 'list-buffers 'ibuffer)