Maciej Szlosarczyk
3ffb484fd8
Some checks failed
/ Test config on 20 (push) Failing after 44s
- Keep longer undo data, I have run into situations where the history is too short. - Clean up undo/redo key bindings. - Try to make the dashboard package load async and faster. I have seen it block more than once.
108 lines
4.5 KiB
EmacsLisp
108 lines
4.5 KiB
EmacsLisp
;;; sys-specific -- summary -*- lexical-binding: t; -*-
|
|
;;; Commentary:
|
|
;;; Make Emacs play nicer with specific operating systems
|
|
;;; Code:
|
|
|
|
(defconst IS-MAC (eq system-type 'darwin))
|
|
(defconst IS-BSD (eq system-type 'berkeley-unix))
|
|
(defconst IS-GNU (eq system-type 'gnu/linux))
|
|
|
|
(require 'icejam-keys-mode)
|
|
|
|
(defun icejam-function-delete-window ()
|
|
"Kill a window."
|
|
(interactive) (delete-window))
|
|
|
|
;; Mac-specific config
|
|
(if IS-MAC
|
|
(progn
|
|
(setq mac-option-modifier 'meta)
|
|
(setq mac-command-modifier 'hyper)
|
|
|
|
(defun icejam-mac-switch-meta nil
|
|
"Switch meta between Option and Command."
|
|
(interactive)
|
|
(if (eq mac-option-modifier nil)
|
|
(progn
|
|
(setq mac-option-modifier 'meta)
|
|
(setq mac-command-modifier 'hyper))
|
|
(progn
|
|
(setq mac-option-modifier nil)
|
|
(setq mac-command-modifier 'meta))))
|
|
|
|
;; Mac binding (fix)
|
|
(define-key icejam-keys-mode-map (kbd "H-<right>") #'end-of-line)
|
|
(define-key icejam-keys-mode-map (kbd "H-<left>") #'beginning-of-line)
|
|
(define-key icejam-keys-mode-map (kbd "H-<up>") #'scroll-down) ; WTF is this reverse, I dunno
|
|
(define-key icejam-keys-mode-map (kbd "H-<down>") #'scroll-up)
|
|
|
|
;; Use CMD bindings that you know from the operating system
|
|
(define-key icejam-keys-mode-map [(hyper a)] #'mark-whole-buffer) ;; Select all
|
|
(define-key icejam-keys-mode-map [(hyper v)] #'yank) ;; Paste
|
|
(define-key icejam-keys-mode-map [(hyper x)] #'kill-region) ;; Cut
|
|
(define-key icejam-keys-mode-map [(hyper c)] #'kill-ring-save) ;; Copy
|
|
(define-key icejam-keys-mode-map [(hyper s)] #'save-buffer) ;; Save
|
|
(define-key icejam-keys-mode-map [(hyper z)] #'undo) ;; Undo
|
|
(define-key icejam-keys-mode-map [(hyper Z)] #'undo-redo) ;; Redo
|
|
(define-key icejam-keys-mode-map [(hyper q)] #'kill-emacs) ;; Close emacs
|
|
(define-key icejam-keys-mode-map [(hyper w)] #'icejam-function-delete-window) ;; Close window
|
|
|
|
;; And then some extras
|
|
(define-key icejam-keys-mode-map [(hyper l)] #'goto-line) ;; Goto Line
|
|
;; Disable meta on right alt (useful for Polish characters)
|
|
;; (setq mac-right-option-modifier nil)
|
|
|
|
;; Allow for fullscreen frames without gaps
|
|
(setq frame-resize-pixelwise t)))
|
|
|
|
(defun icejam-switch-right-left-alt ()
|
|
"Set keyboard to das keyboard."
|
|
(interactive)
|
|
(if (eq mac-right-option-modifier nil)
|
|
(progn
|
|
(setq mac-right-option-modifier 'meta)
|
|
(setq mac-option-modifier nil))
|
|
(progn
|
|
(setq mac-option-modifier 'meta)
|
|
(setq mac-right-option-modifier nil))))
|
|
|
|
;; Linux-specific config
|
|
(if IS-GNU
|
|
(progn
|
|
;; Save and undo
|
|
(define-key icejam-keys-mode-map (kbd "s-s") #'save-buffer)
|
|
(define-key icejam-keys-mode-map (kbd "s-z") #'undo)
|
|
(define-key icejam-keys-mode-map (kbd "s-Z") #'undo-redo)
|
|
(define-key icejam-keys-mode-map (kbd "s-a") #'mark-whole-buffer)
|
|
|
|
;; Copy and paste bindings
|
|
(define-key icejam-keys-mode-map (kbd "s-x") #'kill-region)
|
|
(define-key icejam-keys-mode-map (kbd "s-v") #'yank)
|
|
(define-key icejam-keys-mode-map (kbd "s-c") #'kill-ring-save)
|
|
|
|
;; Linux Ergo bindings (fix)
|
|
(define-key icejam-keys-mode-map (kbd "C-<right>") #'end-of-line)
|
|
(define-key icejam-keys-mode-map (kbd "C-<left>") #'beginning-of-line)
|
|
(define-key icejam-keys-mode-map (kbd "C-<up>") #'scroll-down) ; WTF is this reverse, I dunno
|
|
(define-key icejam-keys-mode-map (kbd "C-<down>") #'scroll-up)))
|
|
|
|
;; BSD-specific config
|
|
(if IS-BSD
|
|
(progn
|
|
(define-key icejam-keys-mode-map (kbd "A-<right>") #'end-of-line)
|
|
(define-key icejam-keys-mode-map (kbd "A-<left>") #'beginning-of-line)
|
|
(define-key icejam-keys-mode-map (kbd "A-<up>") #'scroll-down) ; WTF is this reverse, I dunno
|
|
(define-key icejam-keys-mode-map (kbd "A-<down>") #'scroll-up)
|
|
|
|
(define-key icejam-keys-mode-map (kbd "A-a") #'mark-whole-buffer)
|
|
(define-key icejam-keys-mode-map (kbd "A-v") #'yank)
|
|
(define-key icejam-keys-mode-map (kbd "A-x") #'kill-region)
|
|
(define-key icejam-keys-mode-map (kbd "A-c") #'kill-ring-save)
|
|
(define-key icejam-keys-mode-map (kbd "A-s") #'save-buffer)
|
|
(define-key icejam-keys-mode-map (kbd "A-l") #'goto-line)
|
|
(define-key icejam-keys-mode-map (kbd "A-w") #'icejam-function-delete-window)
|
|
(define-key icejam-keys-mode-map (kbd "A-z") #'undo)
|
|
(define-key icejam-keys-mode-map (kbd "A-q") #'kill-emacs)))
|
|
|
|
(provide 'icejam-sys-specific)
|
|
;;; icejam-sys-specific.el ends here
|