89 lines
2.8 KiB
EmacsLisp
89 lines
2.8 KiB
EmacsLisp
;; General userinterface and appearance
|
|
(tool-bar-mode -1)
|
|
(menu-bar-mode -1)
|
|
(scroll-bar-mode -1)
|
|
(horizontal-scroll-bar-mode -1)
|
|
(global-hl-line-mode 1)
|
|
(define-key menu-bar-tools-menu [games] nil)
|
|
(setq-default display-time-format "%V %F %R %a")
|
|
(setq-default display-time-24hr-format t)
|
|
(display-time-mode 1)
|
|
(global-prettify-symbols-mode 1)
|
|
|
|
;; Cursor and mouse
|
|
(column-number-mode -1)
|
|
(mouse-wheel-mode 1)
|
|
(blink-cursor-mode -1)
|
|
|
|
;; Customization for locale, environment and computer
|
|
(setq-default european-calendar-style t)
|
|
(setq-default calendar-christian-all-holidays-flag t)
|
|
(setq-default calendar-date-style (quote iso))
|
|
(setq-default calendar-view-diary-initially-flag t)
|
|
(setq-default calendar-week-start-day 1)
|
|
(setq-default calendar-intermonth-text
|
|
'(propertize
|
|
(format "%2d"
|
|
(car
|
|
(calendar-iso-from-absolute
|
|
(calendar-absolute-from-gregorian
|
|
(list month day year )))))
|
|
'font-lock-face 'font-lock-function-name-face))
|
|
(setq-default ispell-program-name "aspell")
|
|
(setq-default grep-command "grep -i -nH -e ")
|
|
|
|
(when (eq system-type 'gnu/linux)
|
|
(setq-default shell-file-name "/bin/bash")
|
|
(setq-default tex-shell-file-name "/bin/bash"))
|
|
|
|
;; Files and sessions
|
|
(setq-default auto-save-timeout 60)
|
|
|
|
;; Tabs, spaces, lines and parenthesis
|
|
(show-paren-mode 1)
|
|
(setq-default indent-tabs-mode nil)
|
|
(setq-default line-spacing nil)
|
|
(setq-default make-backup-files nil)
|
|
(setq-default browse-url-browser-function (quote eww-browse-url))
|
|
(setq tab-width 4)
|
|
(setq sentence-end-double-space nil)
|
|
(setq next-line-add-newlines t)
|
|
(setq require-final-newline t)
|
|
|
|
;; Miscellaneous
|
|
(require 'cl-lib)
|
|
(setq default-major-mode 'text-mode)
|
|
(setq-default inhibit-startup-buffer-menu t
|
|
inhibit-startup-screen t)
|
|
(setq-default shr-cookie-policy nil)
|
|
(setq-default tramp-default-method "ssh")
|
|
(put 'narrow-to-region 'disabled nil)
|
|
(put 'narrow-to-page 'disabled nil)
|
|
(add-hook 'text-mode-hook 'turn-on-auto-fill)
|
|
(defalias 'yes-or-no-p 'y-or-n-p)
|
|
|
|
;; Windows, Frames
|
|
(setq default-frame-alist
|
|
'((font . "Fira Code-11")
|
|
(alpha . 100)
|
|
(undecorated . t)
|
|
(width . 85)
|
|
(height . 70)
|
|
(fullscreen . fullscreen)))
|
|
|
|
;; Mode line
|
|
(setq-default mode-line-format
|
|
(list "-"
|
|
'system-name
|
|
" "
|
|
'display-time-string
|
|
"-"
|
|
"["
|
|
'(:eval (substring mode-line-frame-identification 3))
|
|
"%b "
|
|
'(line-number-mode "%l ")
|
|
'(:eval (when-let (vc vc-mode)
|
|
(list (substring vc 5) "")))
|
|
"]"
|
|
'mode-line-modes
|
|
"%n"))
|