ink/.emacs.d
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Indentation

Browse Source
This commit is contained in:
Iñaki Dominguez
2017-05-18 16:56:03 +02:00
parent 7217ec7ac8
commit 16c062f444
1 changed files with 42 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
my-noexternals.el
View File

@@ -12,16 +12,19 @@
;; '(font . "Iosevka Term 10")) ;; '(font . "Iosevka Term 10"))
;; (set-frame-font ;; (set-frame-font
;; "Iosevka Term 10") ;; "Iosevka Term 10")
;; (add-to-list
;; 'default-frame-alist
;; '(font . "envypn 15"))
;; (set-frame-font
;; "envypn 15")
(add-to-list (add-to-list
'default-frame-alist 'default-frame-alist
'(font . "envypn 15")) '(font . "Iosevka Term 10"))
(set-frame-font (set-frame-font
"envypn 15") "Iosevka Term 10")
;; (set-face-font 'menu "-ypn-envypn-medium-r-normal--15-150-75-75-c-90-iso8859-1")
;; (set-face-font 'default "-ypn-envypn-medium-r-normal--15-150-75-75-c-90-iso8859-1")
(setq frame-title-format (setq frame-title-format
'(buffer-file-name "%f" '(buffer-file-name "%f"
(dired-directory dired-directory "%b"))) (dired-directory dired-directory "%b")))
(fringe-mode '(0 . 0)) (fringe-mode '(0 . 0))
(setq inhibit-startup-screen t) (setq inhibit-startup-screen t)
(setq vc-follow-symlinks t) (setq vc-follow-symlinks t)
@@ -43,7 +46,8 @@
(add-to-list 'auto-mode-alist '("\\.mustache\\'" . web-mode)) (add-to-list 'auto-mode-alist '("\\.mustache\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.djhtml\\'" . web-mode)) (add-to-list 'auto-mode-alist '("\\.djhtml\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.html?\\'" . web-mode)) (add-to-list 'auto-mode-alist '("\\.html?\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.\\(p\\(?:k[bg]\\|ls\\)\\|sql\\)\\'" . plsql-mode)) (add-to-list 'auto-mode-alist
'("\\.\\(p\\(?:k[bg]\\|ls\\)\\|sql\\)\\'" . plsql-mode))
;; (setq auto-mode-alist ;; (setq auto-mode-alist
;; (append ;; (append
;; '(("\\.\\(p\\(?:k[bg]\\|ls\\)\\|sql\\)\\'" . plsql-mode)) ;; '(("\\.\\(p\\(?:k[bg]\\|ls\\)\\|sql\\)\\'" . plsql-mode))
@@ -57,7 +61,7 @@
(setq-default indent-tabs-mode t) (setq-default indent-tabs-mode t)
(setq-default tab-width 8) (setq-default tab-width 8)
(setq-default c-default-style "linux" (setq-default c-default-style "linux"
c-basic-offset 2) c-basic-offset 2)
(defvaralias 'c-basic-offset 'tab-width) (defvaralias 'c-basic-offset 'tab-width)
(defvaralias 'cperl-indent-level 'tab-width) (defvaralias 'cperl-indent-level 'tab-width)
(setq backup-by-copying t ; don't clobber symlinks (setq backup-by-copying t ; don't clobber symlinks
@@ -84,19 +88,19 @@
(defun remove-elc-on-save () (defun remove-elc-on-save ()
"If you're saving an elisp file, likely the .elc is no longer valid." "If you're saving an elisp file, likely the .elc is no longer valid."
(add-hook 'after-save-hook (add-hook 'after-save-hook
(lambda () (lambda ()
(if (file-exists-p (concat buffer-file-name "c")) (if (file-exists-p (concat buffer-file-name "c"))
(delete-file (concat buffer-file-name "c")))) (delete-file (concat buffer-file-name "c"))))
nil nil
t)) t))
(add-hook 'emacs-lisp-mode-hook 'remove-elc-on-save) (add-hook 'emacs-lisp-mode-hook 'remove-elc-on-save)
(add-hook 'eshell-mode-hook (lambda () (add-hook 'eshell-mode-hook (lambda ()
(setq-local global-hl-line-mode nil))) (setq-local global-hl-line-mode nil)))
(add-hook 'term-mode-hook (lambda () (add-hook 'term-mode-hook (lambda ()
(setq-local global-hl-line-mode nil))) (setq-local global-hl-line-mode nil)))
;;(setq auto-mode-alist ;;(setq auto-mode-alist
;; (append ;; (append
@@ -113,15 +117,27 @@
(get-buffer-process (current-buffer)) (get-buffer-process (current-buffer))
(if string string (current-kill 0)))) (if string string (current-kill 0))))
(eval-after-load 'haskell-mode '(progn (eval-after-load 'haskell-mode
(define-key haskell-mode-map (kbd "C-c C-l") 'haskell-process-load-or-reload) '(progn
(define-key haskell-mode-map (kbd "C-c C-z") 'haskell-interactive-switch) (define-key haskell-mode-map (kbd "C-c C-l")
(define-key haskell-mode-map (kbd "C-c C-n C-t") 'haskell-process-do-type) 'haskell-process-load-or-reload)
(define-key haskell-mode-map (kbd "C-c C-n C-i") 'haskell-process-do-info) (define-key haskell-mode-map (kbd "C-c C-z")
(define-key haskell-mode-map (kbd "C-c C-n C-c") 'haskell-process-cabal-build) 'haskell-interactive-switch)
(define-key haskell-mode-map (kbd "C-c C-n c") 'haskell-process-cabal))) (define-key haskell-mode-map (kbd "C-c C-n C-t")
(eval-after-load 'haskell-cabal '(progn 'haskell-process-do-type)
(define-key haskell-cabal-mode-map (kbd "C-c C-z") 'haskell-interactive-switch) (define-key haskell-mode-map (kbd "C-c C-n C-i")
(define-key haskell-cabal-mode-map (kbd "C-c C-k") 'haskell-interactive-mode-clear) 'haskell-process-do-info)
(define-key haskell-cabal-mode-map (kbd "C-c C-c") 'haskell-process-cabal-build) (define-key haskell-mode-map (kbd "C-c C-n C-c")
(define-key haskell-cabal-mode-map (kbd "C-c c") 'haskell-process-cabal))) 'haskell-process-cabal-build)
(define-key haskell-mode-map (kbd "C-c C-n c")
'haskell-process-cabal)))
(eval-after-load 'haskell-cabal
'(progn
(define-key haskell-cabal-mode-map (kbd "C-c C-z")
'haskell-interactive-switch)
(define-key haskell-cabal-mode-map (kbd "C-c C-k")
'haskell-interactive-mode-clear)
(define-key haskell-cabal-mode-map (kbd "C-c C-c")
'haskell-process-cabal-build)
(define-key haskell-cabal-mode-map (kbd "C-c c")
'haskell-process-cabal)))