Slett gammel konfigurasjonsfil
This commit is contained in:
parent
8a5ceebe23
commit
ff5c3c5db4
125
emacs-init.el
125
emacs-init.el
@ -1,125 +0,0 @@
|
|||||||
;; Requiring features is like loading libraries.
|
|
||||||
;; We need these two in the config:
|
|
||||||
(require 'cl)
|
|
||||||
(require 'package)
|
|
||||||
|
|
||||||
;; add mirrors for list-packages
|
|
||||||
(add-to-list 'package-archives
|
|
||||||
'("melpa" . "http://melpa.milkbox.net/packages/"))
|
|
||||||
|
|
||||||
;; needed to use things downloaded with the package manager
|
|
||||||
(package-initialize)
|
|
||||||
|
|
||||||
;; Find packages by using M-x list-packages
|
|
||||||
;; Adding pakcages to the list below ensures that they're installed.
|
|
||||||
(let* ((packages '(auto-complete
|
|
||||||
ido-vertical-mode
|
|
||||||
monokai-theme
|
|
||||||
leuven-theme
|
|
||||||
multiple-cursors
|
|
||||||
undo-tree
|
|
||||||
;; if you want more packages, add them here
|
|
||||||
))
|
|
||||||
(packages (remove-if 'package-installed-p packages)))
|
|
||||||
(when packages
|
|
||||||
(package-refresh-contents)
|
|
||||||
(mapc 'package-install packages)))
|
|
||||||
|
|
||||||
(dolist (mode '(show-paren-mode ; show matching parenthesis
|
|
||||||
column-number-mode ; show column number in mode-line
|
|
||||||
delete-selection-mode ; overwrite marked text
|
|
||||||
ido-mode ; changes selection in minibuffer
|
|
||||||
ido-everywhere ; use ido everywhere
|
|
||||||
ido-vertical-mode ; show vertically
|
|
||||||
global-undo-tree-mode ; use undo-tree-mode globally
|
|
||||||
;; Enable more modes by adding them here
|
|
||||||
))
|
|
||||||
(when (fboundp mode)
|
|
||||||
(funcall mode 1)))
|
|
||||||
|
|
||||||
(dolist (mode '(blink-cursor-mode ; stop blinking cursor
|
|
||||||
menu-bar-mode ; no menubar
|
|
||||||
tool-bar-mode ; no toolbar either
|
|
||||||
scroll-bar-mode ; scrollbar? no
|
|
||||||
;; Disable more modes by adding them here.
|
|
||||||
))
|
|
||||||
(when (fboundp mode)
|
|
||||||
(funcall mode 0)))
|
|
||||||
|
|
||||||
;; No splash screen
|
|
||||||
(setq inhibit-splash-screen t)
|
|
||||||
|
|
||||||
;; Answer with y/n
|
|
||||||
(fset 'yes-or-no-p 'y-or-n-p)
|
|
||||||
|
|
||||||
;; Choose a color-theme
|
|
||||||
|
|
||||||
;; Suggested dark theme:
|
|
||||||
;; (load-theme 'monokai t)
|
|
||||||
|
|
||||||
;; Suggested light theme:
|
|
||||||
(load-theme 'leuven t)
|
|
||||||
|
|
||||||
;; get the default config for auto-complete (downloaded with
|
|
||||||
;; package-manager)
|
|
||||||
(require 'auto-complete-config)
|
|
||||||
|
|
||||||
;; load the default config of auto-complete
|
|
||||||
(ac-config-default)
|
|
||||||
|
|
||||||
;; kills the active buffer, not asking what buffer to kill.
|
|
||||||
(global-set-key (kbd "C-x k") 'kill-this-buffer)
|
|
||||||
|
|
||||||
;; adds all autosave-files (i.e #test.txt#, test.txt~) in one
|
|
||||||
;; directory, avoid clutter in filesystem.
|
|
||||||
(defvar emacs-autosave-directory
|
|
||||||
(concat user-emacs-directory "autosaves/")
|
|
||||||
"This variable dictates where to put auto saves. It is set to a directory
|
|
||||||
called autosaves located wherever your .emacs.d/ is located.")
|
|
||||||
|
|
||||||
;; Sets all files to be backed up and auto saved in a single directory.
|
|
||||||
(setq backup-directory-alist `((".*" . ,emacs-autosave-directory))
|
|
||||||
auto-save-file-name-transforms `((".*" ,emacs-autosave-directory t)))
|
|
||||||
|
|
||||||
;; now we have to tell emacs where to load these functions. Showing
|
|
||||||
;; and hiding codeblocks could be useful for all c-like programming
|
|
||||||
;; (java is c-like) languages, so we add it to the c-mode-common-hook.
|
|
||||||
(add-hook 'c-mode-common-hook 'hideshow-on)
|
|
||||||
|
|
||||||
;; adding shortcuts to java-mode, writing the shortcut folowed by a
|
|
||||||
;; non-word character will cause an expansion.
|
|
||||||
(defun java-shortcuts ()
|
|
||||||
(define-abbrev-table 'java-mode-abbrev-table
|
|
||||||
'(("psv" "public static void main(String[] args) {" nil 0)
|
|
||||||
("sop" "System.out.printf" nil 0)
|
|
||||||
("sopl" "System.out.println" nil 0)))
|
|
||||||
(abbrev-mode t))
|
|
||||||
|
|
||||||
;; the shortcuts are only useful in java-mode so we'll load them to
|
|
||||||
;; java-mode-hook.
|
|
||||||
(add-hook 'java-mode-hook 'java-shortcuts)
|
|
||||||
|
|
||||||
;; defining a function that guesses a compile command and bindes the
|
|
||||||
;; compile-function to C-c C-c
|
|
||||||
(defun java-setup ()
|
|
||||||
(set (make-variable-buffer-local 'compile-command)
|
|
||||||
(concat "javac " (buffer-name)))
|
|
||||||
(local-set-key (kbd "C-c C-c") 'compile))
|
|
||||||
|
|
||||||
;; this is a java-spesific function, so we only load it when entering
|
|
||||||
;; java-mode
|
|
||||||
(add-hook 'java-mode-hook 'java-setup)
|
|
||||||
|
|
||||||
;; defining a function that sets the right indentation to the marked
|
|
||||||
;; text, or the entire buffer if no text is selected.
|
|
||||||
(defun tidy ()
|
|
||||||
"Ident, untabify and unwhitespacify current buffer, or region if active."
|
|
||||||
(interactive)
|
|
||||||
(let ((beg (if (region-active-p) (region-beginning) (point-min)))
|
|
||||||
(end (if (region-active-p) (region-end) (point-max))))
|
|
||||||
(whitespace-cleanup)
|
|
||||||
(indent-region beg end nil)
|
|
||||||
(untabify (if (region-active-p) (region-beginning) (point-min))
|
|
||||||
(if (region-active-p) (region-end) (point-max)))))
|
|
||||||
;; bindes the tidy-function to C-TAB
|
|
||||||
(global-set-key (kbd "<C-tab>") 'tidy)
|
|
||||||
Loading…
Reference in New Issue
Block a user