path: root/emacs/init.el

;; Added by Package.el.  This must come before configurations of
;; installed packages.  Don't delete this line.  If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments. 
(package-initialize)

(put 'upcase-region 'disabled nil)
(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.
 '(inhibit-startup-screen t))

(setq display-time-string-forms
      '((propertize (concat " " 24-hours ":" minutes " ")
                    )))

(column-number-mode)
(display-time-mode)

; (set-default-font "-misc-fixed-medium-r-normal--13-*-75-75-c-70-iso8859-1")
;; TODO set-default-font stopped working

; (blink-cursor-mode 0)
; (setq visible-bell t)
; (scroll-bar-mode 0)
; (tool-bar-mode 0)
; (menu-bar-mode 0)

;(custom-set-faces
;  '(default ((t (:background "#101064" :foreground "#FFFFFF"))))
;  '(fringe ((t (:background "#101064")))))

(set-face-foreground 'font-lock-comment-face "red")

(add-hook 'after-change-major-mode-hook (lambda() (electric-indent-mode -1)))
(add-hook 'c-mode-hook (lambda () (electric-indent-local-mode)))

(defvaralias 'c-basic-offset 'tab-width)
(global-set-key (kbd "DEL") 'backward-delete-char)
(setq c-backspace-function 'backward-delete-char)

(setq vc-follow-symlinks nil)
(setq vc-handled-backends nil)

(add-to-list 'auto-mode-alist '("/PKGBUILD$" . shell-script-mode))
(add-to-list 'auto-mode-alist '("/APKBUILD$" . shell-script-mode))
(setq auto-mode-alist (cons '("\.cl$" . c-mode) auto-mode-alist))