site-start.el

file_914428.txt (text/plain), 1.36 KB, created by Joakim Tjernlund on 2023-09-19 17:48:35 UTC

;;; site-start.el			-*- no-byte-compile: t -*-

;;; Commentary:
;; This is the site startup file for GNU Emacs. It is loaded before
;; the user's init file. You may modify this file or replace or it
;; by your own site initialisation.

;;; Code:
;; Load site initialisation for Gentoo installed packages.
(require 'site-gentoo)

;;; site-start.el ends here
;;(scroll-bar-mode 0 )
(setq default-frame-alist '((background-color . "#333333") (foreground-color . "White") (cursor-color . "White")))
(setq initial-frame-alist default-frame-alist)

;; Setup scroll mouse settings
(defun up-slightly () (interactive) (scroll-up 5))
(defun down-slightly () (interactive) (scroll-down 5))
(global-set-key [mouse-4] 'down-slightly)
(global-set-key [mouse-5] 'up-slightly)
(defun up-one () (interactive) (scroll-up 1))
(defun down-one () (interactive) (scroll-down 1))
(global-set-key [S-mouse-4] 'down-one)
(global-set-key [S-mouse-5] 'up-one)
(defun up-a-lot () (interactive) (scroll-up))
(defun down-a-lot () (interactive) (scroll-down))
(global-set-key [C-mouse-4] 'down-a-lot)
(global-set-key [C-mouse-5] 'up-a-lot)

; Alt-g for goto-line
(define-key global-map  "\M-g" 'goto-line)
; Ctrl-C g for goto-line
(global-set-key "\C-cg" 'goto-line)
; Ctrl-C w for what-line
(global-set-key "\C-cw" 'what-line)
; Ctrl-C c for compile
(global-set-key "\C-cc" 'compile)