emacs-configs/.emacs

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(before-save-hook (quote (whitespace-cleanup)))
 '(column-number-mode t)
 '(default-justification (quote full))
 '(electric-layout-mode t)
 '(fill-column 95)
 '(global-whitespace-mode t)
 '(global-whitespace-newline-mode t)
 '(indent-tabs-mode nil)
 '(indicate-empty-lines t)
 '(org-babel-load-languages
   (quote
    ((emacs-lisp . t)
     (sh . t)
     (css . t)
     (C . t)
     (perl . t)
     (lisp . t)
     (java . t)
     (haskell . t)
     (js . t)
     (ocaml . t)
     (makefile . t)
     (clojure . t)
     (latex . t))))
 '(org-confirm-babel-evaluate nil)
 '(org-todo-keywords (quote ((sequence "TODO" "IN-PROGRESS" "WAITING" "DONE"))))
 '(save-place t nil (saveplace))
 '(show-paren-mode t)
 '(size-indication-mode t)
 '(standard-indent 2)
 '(tab-always-indent t)
 '(tab-width 2)
 '(whitespace-line-column 100))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(default ((t (:family "Noto Mono" :foundry "monotype" :slant normal :weight normal :height 83 :width normal))))
 '(whitespace-empty ((t (:background "white" :foreground "firebrick"))))
 '(whitespace-indentation ((t (:background "white" :foreground "firebrick"))))
 '(whitespace-space-after-tab ((t (:background "gainsboro" :foreground "firebrick"))))
 '(whitespace-space-before-tab ((t (:background "gainsboro" :foreground "firebrick")))))
(defvar current-date-time-format "<%F %T>: ")
(defun insert-date-time ()
  (interactive)
  (insert (format-time-string current-date-time-format (current-time))) )
(defun comment-eclipse ()
  (interactive)
  (let ((start (line-beginning-position))
  (end (line-end-position)))
    (when (or (not transient-mark-mode) (region-active-p))
      (setq start (save-excursion
        (goto-char (region-beginning))
        (beginning-of-line)
        (point))
      end (save-excursion
      (goto-char (region-end))
      (end-of-line)
      (point))))
    (comment-or-uncomment-region start end)))
(global-set-key [(control x)(t)] 'insert-date-time)
(global-set-key [(control x)(u)] 'comment-eclipse)
(add-to-list 'load-path "~/.emacs.d/lisp/")
(require 'buffer-move)
(require 'window-numbering)
(global-set-key [(control c)(up)] 'buf-move-up)
(global-set-key [(control c)(down)] 'buf-move-down)
(global-set-key [(control c)(left)] 'buf-move-left)
(global-set-key [(control c)(right)] 'buf-move-right)
(require 'move-lines)
(move-lines-binding)
(global-set-key [(control x)(left)] 'shrink-window-horizontally)
(global-set-key [(control x)(right)] 'enlarge-window-horizontally)
(global-set-key [(control x)(down)] 'shrink-window)
(global-set-key [(control x)(up)] 'enlarge-window)
(global-set-key [(f5)] 'multishell-pop-to-shell)
(window-numbering-mode)