updates

functions.el

@@ -42,5 +42,14 @@
   (set-mark (point))
   (move-end-of-line nil))
 
-(global-set-key (kbd "C-x C-x") 'mark-line)
+(global-set-key (kbd "C-x C-z") 'mark-line)
 (global-unset-key (kbd "C-z")) ; disable suspend frame
+(global-unset-key (kbd "C-x C-z")) ; disable suspend frame
+(global-set-key (kbd "C-x C-x") 'other-window)
+(global-set-key (kbd "C-x C-b") '(lambda () (interactive)
+                                   (bs-show nil)
+                                   (swiper)))
+
+(defun toggle-indent ()
+  (interactive)
+  (setq-default indent-tabs-mode (not indent-tabs-mode)))

init.el

@@ -9,6 +9,11 @@
 
 ;; Tab width
 (setq-default tab-width 4)
+;; No tabs when editing Lisp
+;;(add-hook 'lisp-mode-hook '(setq indent-tabs-mode nil))
+;;(add-hook 'scheme-mode-hook '(setq indent-tabs-mode nil))
+(setq-default indent-tabs-mode nil)
+
 
 ;; Remove useless stuff
 (menu-bar-mode 0)
@@ -40,6 +45,10 @@
 (setq make-backup-files nil)
 (setq auto-save-default nil)
 
+;; pretty lambdas
+(setq-default prettify-symbols-alist '(("lambda" . 955)))
+(global-prettify-symbols-mode 1)
+
 ;; Y or N instead of Yes or No
 (defalias 'yes-or-no-p 'y-or-n-p)
 
@@ -112,7 +121,7 @@
  '(custom-safe-themes
    '("b026761932dac55edfc103de7267ab1db5cd7cc183e06654a2be976cf3a09b9c" "2eeeb1813d66b7d1b858ecf7e4623f774ee555f4b6c1e6de93a1875c03af41de" "5a5e51dc0d54d7626f182dcc1712ed0bad80085db52da3fbe737be4f58d983d0" "4c5f4e96bbde8ab012c661b04c887d9cf65ee9fc37abcce661aabd3a098a69e9" "9c25bd583aa28e4a96af84c9bcf4b5c917bb2ec907ac9d5ab745e54b27104ec6" default))
  '(package-selected-packages
-   '(multiple-cursors nasm-mode carp-mode flycheck ido-mode move-text undo-tree sorcery-theme autothemer rust-mode paredit geiser forth-mode avy swiper auto-package-update magit expand-region go-mode tao-themes tao-theme almost-mono-themes use-package))
+   '(disaster multiple-cursors nasm-mode carp-mode flycheck ido-mode move-text undo-tree sorcery-theme autothemer rust-mode paredit geiser forth-mode avy swiper auto-package-update magit expand-region go-mode tao-themes tao-theme almost-mono-themes use-package))
  '(pdf-view-midnight-colors '("#dddddd" . "#000000")))
 (custom-set-faces
  ;; custom-set-faces was added by Custom.

packages.el

@@ -20,7 +20,8 @@
   :config
   (setq auto-package-update-delete-old-versions t)
   (setq auto-package-update-hide-results t)
-  (auto-package-update-maybe))
+  (auto-package-update-maybe)
+  )
 
 ;; support color theme
 (use-package autothemer
@@ -66,13 +67,19 @@
 (use-package geiser
   :ensure t)
 
+(use-package disaster
+  :ensure t
+  :config
+  (add-hook 'c-mode-hook
+			(lambda () (local-set-key (kbd "C-c d") #'disaster))))
+
 (use-package undo-tree
   :ensure t
   :bind
   ("C-_" . 'undo-tree-undo)
   ("M-_" . 'undo-tree-redo)
   :config
-  (global-undo-tree-mode)) 
+  (global-undo-tree-mode))
 
 (use-package dashboard
   :ensure t
@@ -104,7 +111,8 @@
   :ensure t
   :config
   (add-hook 'scheme-mode-hook 'paredit-mode)
-  (add-hook 'lisp-mode-hook 'paredit-mode))
+  (add-hook 'lisp-mode-hook 'paredit-mode)
+  (add-hook 'emacs-lisp-mode-hook 'paredit-mode))
 
 ;; jump to definitions and files with M-.
 (use-package dumb-jump
@@ -126,4 +134,9 @@
   :config
   (ido-mode))
 
+;; (use-package flycheck
+;;   :ensure t
+;;   :config
+;; )
+
 (provide 'packages)