foobar
This commit is contained in:
parent
55f423189c
commit
49d97d7bd1
20
init.el
20
init.el
|
@ -1,3 +1,10 @@
|
||||||
|
;; decrease startup time by deferring gc
|
||||||
|
(setq gc-cons-threshold 100000000)
|
||||||
|
|
||||||
|
;; I call package-initialize manually, disable automatic initialization:
|
||||||
|
(setq package-enable-at-startup nil)
|
||||||
|
|
||||||
|
|
||||||
;; Packages
|
;; Packages
|
||||||
(load "~/.emacs.d/packages.el")
|
(load "~/.emacs.d/packages.el")
|
||||||
|
|
||||||
|
@ -16,7 +23,7 @@
|
||||||
(set-language-environment "UTF-8")
|
(set-language-environment "UTF-8")
|
||||||
|
|
||||||
;; Appearance
|
;; Appearance
|
||||||
(set-frame-font "DejaVu Sans Mono 10")
|
(set-frame-font "Terminus 12")
|
||||||
(set-face-italic 'font-lock-comment-face nil) ; disable italics
|
(set-face-italic 'font-lock-comment-face nil) ; disable italics
|
||||||
; theme set in packages.el
|
; theme set in packages.el
|
||||||
(global-linum-mode)
|
(global-linum-mode)
|
||||||
|
@ -54,6 +61,10 @@
|
||||||
))
|
))
|
||||||
(electric-pair-mode t)
|
(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
|
;; windmove
|
||||||
(global-set-key (kbd "C-:") 'windmove-left)
|
(global-set-key (kbd "C-:") 'windmove-left)
|
||||||
(global-set-key (kbd "C-|") 'windmove-right)
|
(global-set-key (kbd "C-|") 'windmove-right)
|
||||||
|
@ -70,6 +81,11 @@
|
||||||
(setq c-default-style "linux"
|
(setq c-default-style "linux"
|
||||||
c-basic-offset 4)
|
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
|
;; Disable bold fonts
|
||||||
(mapc
|
(mapc
|
||||||
(lambda (face)
|
(lambda (face)
|
||||||
|
@ -88,7 +104,7 @@
|
||||||
;; Your init file should contain only one such instance.
|
;; Your init file should contain only one such instance.
|
||||||
;; If there is more than one, they won't work right.
|
;; If there is more than one, they won't work right.
|
||||||
'(package-selected-packages
|
'(package-selected-packages
|
||||||
'(avy swiper auto-package-update magit expand-region go-mode tao-themes tao-theme almost-mono-themes use-package)))
|
'(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)))
|
||||||
(custom-set-faces
|
(custom-set-faces
|
||||||
;; custom-set-faces was added by Custom.
|
;; custom-set-faces was added by Custom.
|
||||||
;; If you edit it by hand, you could mess it up, so be careful.
|
;; If you edit it by hand, you could mess it up, so be careful.
|
||||||
|
|
26
packages.el
26
packages.el
|
@ -3,9 +3,6 @@
|
||||||
;; Manually installed modes
|
;; Manually installed modes
|
||||||
(add-to-list 'load-path "~/.emacs.d/plugins/")
|
(add-to-list 'load-path "~/.emacs.d/plugins/")
|
||||||
|
|
||||||
;; Scheme BBS
|
|
||||||
(load "sbbs")
|
|
||||||
|
|
||||||
;; Package
|
;; Package
|
||||||
(require 'package)
|
(require 'package)
|
||||||
(setq package-archives '(("gnu" . "http://mirrors.163.com/elpa/gnu/")
|
(setq package-archives '(("gnu" . "http://mirrors.163.com/elpa/gnu/")
|
||||||
|
@ -17,7 +14,7 @@
|
||||||
(package-refresh-contents)
|
(package-refresh-contents)
|
||||||
(package-install 'use-package))
|
(package-install 'use-package))
|
||||||
|
|
||||||
;; auto-package-update automatically updates and removes old packages
|
;; auto-package-update automatically updates packages and removes old ones
|
||||||
(use-package auto-package-update
|
(use-package auto-package-update
|
||||||
:ensure t
|
:ensure t
|
||||||
:config
|
:config
|
||||||
|
@ -35,6 +32,8 @@
|
||||||
:init
|
:init
|
||||||
(load-theme 'almost-mono-black t))
|
(load-theme 'almost-mono-black t))
|
||||||
|
|
||||||
|
;; Languages
|
||||||
|
|
||||||
(use-package haskell-mode
|
(use-package haskell-mode
|
||||||
:ensure t
|
:ensure t
|
||||||
:init
|
:init
|
||||||
|
@ -43,9 +42,20 @@
|
||||||
(use-package go-mode
|
(use-package go-mode
|
||||||
:ensure t)
|
:ensure t)
|
||||||
|
|
||||||
|
(use-package rust-mode
|
||||||
|
:ensure t)
|
||||||
|
|
||||||
(use-package elpher
|
(use-package elpher
|
||||||
:ensure t)
|
:ensure t)
|
||||||
|
|
||||||
|
(use-package slime
|
||||||
|
:ensure t
|
||||||
|
:config
|
||||||
|
(setq inferior-lisp-program "sbcl"))
|
||||||
|
|
||||||
|
(use-package geiser
|
||||||
|
:ensure t)
|
||||||
|
|
||||||
(use-package dashboard
|
(use-package dashboard
|
||||||
:ensure t
|
:ensure t
|
||||||
:config
|
:config
|
||||||
|
@ -55,17 +65,15 @@
|
||||||
(setq dashboard-set-footer nil)
|
(setq dashboard-set-footer nil)
|
||||||
(dashboard-setup-startup-hook))
|
(dashboard-setup-startup-hook))
|
||||||
|
|
||||||
(use-package slime
|
|
||||||
:ensure t
|
|
||||||
:config
|
|
||||||
(setq inferior-lisp-program "sbcl"))
|
|
||||||
|
|
||||||
(use-package expand-region
|
(use-package expand-region
|
||||||
:ensure t
|
:ensure t
|
||||||
:config
|
:config
|
||||||
(global-set-key (kbd "C-=") 'er/expand-region)
|
(global-set-key (kbd "C-=") 'er/expand-region)
|
||||||
(pending-delete-mode t)) ; if you start typing while a word is selected, overwrite it
|
(pending-delete-mode t)) ; if you start typing while a word is selected, overwrite it
|
||||||
|
|
||||||
|
(use-package paredit
|
||||||
|
:ensure t)
|
||||||
|
|
||||||
;; jump to definitions and files with M-.
|
;; jump to definitions and files with M-.
|
||||||
(use-package dumb-jump
|
(use-package dumb-jump
|
||||||
:ensure t
|
:ensure t
|
||||||
|
|
BIN
plugins/sbbs.elc
BIN
plugins/sbbs.elc
Binary file not shown.
Loading…
Reference in New Issue