124 lines
3.8 KiB
EmacsLisp
124 lines
3.8 KiB
EmacsLisp
;; call package-initialize manually, disable automatic initialization:
|
|
(setq package-enable-at-startup nil)
|
|
|
|
;; Packages
|
|
(load "~/.emacs.d/packages.el")
|
|
|
|
;; Convenient functions
|
|
(load "~/.emacs.d/functions.el")
|
|
|
|
;; Tab width
|
|
(setq-default tab-width 4)
|
|
|
|
;; Remove useless stuff
|
|
(menu-bar-mode 0)
|
|
(tool-bar-mode 0)
|
|
(scroll-bar-mode 0)
|
|
|
|
;; UTF-8!!!!
|
|
(set-language-environment "UTF-8")
|
|
|
|
;; Appearance
|
|
(set-frame-font "ttyp0 12")
|
|
(set-face-italic 'font-lock-comment-face nil) ; disable italics
|
|
; theme set in packages.el
|
|
(add-to-list 'custom-theme-load-path "~/.emacs.d/themes/")
|
|
(load-theme 'magik t)
|
|
(global-linum-mode)
|
|
(blink-cursor-mode nil)
|
|
(when window-system (global-hl-line-mode t))
|
|
(show-paren-mode t)
|
|
|
|
;; Mode line
|
|
(line-number-mode t)
|
|
(column-number-mode t)
|
|
(setq display-time-24hr-format t)
|
|
(display-time-mode t)
|
|
|
|
;; disable creation of backup files
|
|
(setq make-backup-files nil)
|
|
(setq auto-save-default nil)
|
|
|
|
;; Y or N instead of Yes or No
|
|
(defalias 'yes-or-no-p 'y-or-n-p)
|
|
|
|
;; Smaller skips when cursor reaches end of screen
|
|
(setq scroll-conservatively 100)
|
|
|
|
;; Disable bell
|
|
(setq ring-bell-function 'ignore)
|
|
|
|
;; Subword for camelCase words
|
|
(global-subword-mode t)
|
|
|
|
;; Electric pair mode
|
|
(setq electric-pair-pairs '((?\( . ?\))
|
|
(?\[ . ?\])
|
|
(?\{ . ?\})
|
|
(?\" . ?\")
|
|
))
|
|
(electric-pair-mode t)
|
|
|
|
(setq user-mail-address "opfez@disroot.org")
|
|
(setq user-full-name "opFez")
|
|
(setq add-log-mailing-address "opfez@disroot.org")
|
|
|
|
;; windmove
|
|
(global-set-key (kbd "C-:") 'windmove-left)
|
|
(global-set-key (kbd "C-|") 'windmove-right)
|
|
(global-set-key (kbd "C-{") 'windmove-up)
|
|
(global-set-key (kbd "C-\"") 'windmove-down)
|
|
|
|
;; Terminal
|
|
(defvar term-shell "/bin/zsh")
|
|
(defadvice ansi-term (before force-bash)
|
|
(interactive (list term-shell)))
|
|
(ad-activate 'ansi-term)
|
|
|
|
;; C configuration
|
|
(setq c-default-style "linux"
|
|
c-basic-offset 4)
|
|
|
|
;; Scheme configuration
|
|
(setq geiser-active-implementations '(chicken))
|
|
(add-hook 'geiser-mode-hook
|
|
(lambda () (local-set-key (kbd "C-c C-l") #'run-chicken)))
|
|
|
|
;; Disable bold fonts
|
|
(defun remap-faces-default-attributes ()
|
|
(let ((family (face-attribute 'default :family))
|
|
(height (face-attribute 'default :height)))
|
|
(mapcar (lambda (face)
|
|
(face-remap-add-relative
|
|
face :family family :slant 'normal :weight 'normal :height height))
|
|
(face-list))))
|
|
|
|
(when (display-graphic-p)
|
|
(add-hook 'minibuffer-setup-hook 'remap-faces-default-attributes)
|
|
(add-hook 'change-major-mode-after-body-hook 'remap-faces-default-attributes))
|
|
|
|
;; Eshell
|
|
(defalias 'open 'find-file-other-window)
|
|
(defalias 'clean 'eshell/clear-scrollback)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(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.
|
|
'(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))
|
|
'(pdf-view-midnight-colors '("#dddddd" . "#000000")))
|
|
(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.
|
|
)
|
|
;;
|
|
(put 'downcase-region 'disabled nil)
|