foobarxyz

functions.el

@@ -5,7 +5,7 @@
      (buffer-substring
       (point-at-bol)
       (point-at-eol)))))
-(global-set-key  (kbd "C-c w l") 'copy-whole-line)
+(global-set-key (kbd "C-c w l") 'copy-whole-line)
 
 (defun kill-all-buffers ()
   (interactive)
@@ -26,6 +26,21 @@
   (other-window 1))
 (global-set-key (kbd "C-x 3") 'split-and-follow-vertically)
 
+(defun switch-to-previous-buffer ()
+  (interactive)
+  (switch-to-buffer (other-buffer (current-buffer) 1)))
+(global-set-key (kbd "C-x b") 'switch-to-previous-buffer)
+(global-set-key (kbd "C-c b") 'switch-to-buffer)
+
 ;; compilation
 (setq compile-command "make ")
-(global-set-key "\C-x\C-m" 'compile)
+(global-set-key (kbd "C-x C-m") 'compile)
+
+(defun mark-line ()
+  (interactive)
+  (move-beginning-of-line nil)
+  (set-mark (point))
+  (move-end-of-line nil))
+
+(global-set-key (kbd "C-x C-x") 'mark-line)
+(global-unset-key (kbd "C-z")) ; disable suspend frame

init.el

@@ -28,6 +28,7 @@
 (blink-cursor-mode nil)
 (when window-system (global-hl-line-mode t))
 (show-paren-mode t)
+(setq confirm-kill-emacs 'y-or-n-p)
 
 ;; Mode line
 (line-number-mode t)
@@ -111,7 +112,7 @@
  '(custom-safe-themes
    '("b026761932dac55edfc103de7267ab1db5cd7cc183e06654a2be976cf3a09b9c" "2eeeb1813d66b7d1b858ecf7e4623f774ee555f4b6c1e6de93a1875c03af41de" "5a5e51dc0d54d7626f182dcc1712ed0bad80085db52da3fbe737be4f58d983d0" "4c5f4e96bbde8ab012c661b04c887d9cf65ee9fc37abcce661aabd3a098a69e9" "9c25bd583aa28e4a96af84c9bcf4b5c917bb2ec907ac9d5ab745e54b27104ec6" default))
  '(package-selected-packages
-   '(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))
+   '(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

@@ -38,6 +38,12 @@
 
 ;; Languages
 
+(use-package nasm-mode
+  :ensure t
+  :config
+  (add-to-list 'auto-mode-alist '("\\.\\(asm\\|s\\)$" . nasm-mode))
+  (setq nasm-basic-offset 4))
+
 (use-package haskell-mode
   :ensure t
   :init
@@ -58,7 +64,10 @@
   (setq inferior-lisp-program "sbcl"))
 
 (use-package geiser
-	:ensure t)
+  :ensure t)
+
+;; (use-package undo-tree
+;;   :ensure t)
 
 (use-package dashboard
   :ensure t
@@ -75,6 +84,17 @@
   (global-set-key (kbd "C-=") 'er/expand-region)
   (pending-delete-mode t)) ; if you start typing while a word is selected, overwrite it
 
+(use-package move-text
+  :ensure t
+  :config
+  (global-set-key (kbd "M-p") 'move-text-up)
+  (global-set-key (kbd "M-n") 'move-text-down))
+
+(use-package multiple-cursors
+  :ensure t
+  :config
+  (global-set-key (kbd "C->") 'mc/mark-next-like-this))
+
 (use-package paredit
   :ensure t)
 
@@ -92,3 +112,10 @@
 ;; self explanatory
 (use-package magit
   :ensure t)
+
+(use-package ido
+  :ensure t
+  :config
+  (ido-mode))
+
+(provide 'packages)