diff options
Diffstat (limited to 'init.el')
| -rw-r--r-- | init.el | 56 |
1 files changed, 37 insertions, 19 deletions
@@ -9,25 +9,26 @@ ;; Initialize some customizations early on to avoid flicker (when window-system (tooltip-mode -1) - (tool-bar-mode -1)) -;; Open in full-screen of possible -(when (fboundp 'toggle-frame-maximized) - (setq frame-resize-pixelwise t) - (toggle-frame-maximized)) + (tool-bar-mode -1) + ;; Open in full-screen of possible + (when (fboundp 'toggle-frame-maximized) + (setq frame-resize-pixelwise t) + (toggle-frame-maximized))) (menu-bar-mode -1) (setq warning-suppress-types nil) (set-face-background 'default "black") (set-face-foreground 'default "white") (add-to-list 'default-frame-alist '(background-mode . dark)) (require 'cl) -(defun font-candidate (&rest fonts) - "Return existing font which first match." - (find-if (lambda (f) (find-font (font-spec :name f))) fonts)) -(let ((fontval (font-candidate "Source Code Pro"))) - (when fontval (set-face-attribute 'default nil :font fontval :height 110))) -(when (find-font (font-spec :name "Symbola")) - (set-fontset-font "fontset-default" nil - (font-spec :size 20 :name "Symbola"))) +(when window-system + (defun font-candidate (&rest fonts) + "Return existing font which first match." + (find-if (lambda (f) (find-font (font-spec :name f))) fonts)) + (let ((fontval (font-candidate "Source Code Pro"))) + (when fontval (set-face-attribute 'default nil :font fontval :height 110))) + (when (find-font (font-spec :name "Symbola")) + (set-fontset-font "fontset-default" nil + (font-spec :size 20 :name "Symbola")))) (setq custom-file (concat ravi/init-dir "custom.el")) ;; Initialize package handling: currently using only the official repository and MELPA @@ -68,14 +69,31 @@ (use-package s) (use-package dash) + +(use-package xterm-kitty + :init + (setq xterm-kitty-modifiers-alist '((1 . shift) (2 . alt) (4 . control) (32 . super) (16 . hyper) (8 . meta))) + :config + (xterm-kitty-add) + (when xterm-kitty-in-use + (defun ravi/get-rid-of-xterm-key-translations () + (mapcar (lambda (k) (unbind-key (vector k) local-function-key-map)) + '(tab delete return escape))) + (add-hook 'terminal-init-xterm-hook 'ravi/get-rid-of-xterm-key-translations)) + :ensure nil + :load-path (lambda () (ravi/emacs-file "lisp"))) + (require 's) (require 'ravi-ergodox-mode) -(let* ((xinput-string (shell-command-to-string "xinput")) - (xorg-ergodox (s-contains? "Ergodox" xinput-string)) - (under-xming (or xorg-ergodox - (s-contains? "vendor string: Colin Harrison" - (shell-command-to-string "xdpyinfo"))))) - (if (or xorg-ergodox under-xming) +(let* ((xinput-string (and window-system (shell-command-to-string "xinput"))) + (xorg-ergodox (and window-system (s-contains? "Ergodox" xinput-string))) + (under-xming (and window-system + (or xorg-ergodox + (s-contains? "vendor string: Colin Harrison" + (shell-command-to-string "xdpyinfo"))))) + (using-kitty (and (not window-system) + (string-match "^xterm-kitty" (getenv-internal "TERM" initial-environment))))) + (if (or xorg-ergodox under-xming using-kitty) (progn (ravi-ergodox-mode) (diminish 'ravi-ergodox-mode) |