add fez/man-at-point, hl-sexp-mode, exwm multiscreen
This commit is contained in:
parent
87e774c516
commit
6ddfbead98
10
custom.el
10
custom.el
|
@ -196,6 +196,13 @@
|
||||||
(t (setq current-layout "nous")))
|
(t (setq current-layout "nous")))
|
||||||
(shell-command (concat "setxkbmap " current-layout)))
|
(shell-command (concat "setxkbmap " current-layout)))
|
||||||
|
|
||||||
|
(defun fez/man-at-point ()
|
||||||
|
(interactive)
|
||||||
|
(let ((word (current-word)))
|
||||||
|
(if word
|
||||||
|
(man word)
|
||||||
|
"Not a word.")))
|
||||||
|
|
||||||
;; Eshell convinience commands.
|
;; Eshell convinience commands.
|
||||||
(defalias 'open 'find-file-other-window)
|
(defalias 'open 'find-file-other-window)
|
||||||
(defalias 'clean 'eshell/clear-scrollback)
|
(defalias 'clean 'eshell/clear-scrollback)
|
||||||
|
@ -216,6 +223,8 @@
|
||||||
|
|
||||||
(global-set-key (kbd "C-c t") 'fez/time-stamp)
|
(global-set-key (kbd "C-c t") 'fez/time-stamp)
|
||||||
|
|
||||||
|
(global-set-key (kbd "C-z C-m") 'fez/man-at-point)
|
||||||
|
|
||||||
;; zap-up-to-char > zap-to-char
|
;; zap-up-to-char > zap-to-char
|
||||||
(global-set-key (kbd "M-z") 'zap-up-to-char)
|
(global-set-key (kbd "M-z") 'zap-up-to-char)
|
||||||
|
|
||||||
|
@ -229,6 +238,5 @@
|
||||||
(global-set-key [f5] (fez/switch-theme 'magik))
|
(global-set-key [f5] (fez/switch-theme 'magik))
|
||||||
(global-set-key [f6] (fez/switch-theme 'basic))
|
(global-set-key [f6] (fez/switch-theme 'basic))
|
||||||
|
|
||||||
|
|
||||||
(add-hook 'emacs-lisp-mode-hook
|
(add-hook 'emacs-lisp-mode-hook
|
||||||
(lambda () (local-set-key (kbd "C-c k") #'fez/insert-keybind)))
|
(lambda () (local-set-key (kbd "C-c k") #'fez/insert-keybind)))
|
||||||
|
|
9
init.el
9
init.el
|
@ -26,9 +26,6 @@
|
||||||
(set-frame-font "monospace 12")
|
(set-frame-font "monospace 12")
|
||||||
(setq default-frame-alist '((font . "monospace 12")))
|
(setq default-frame-alist '((font . "monospace 12")))
|
||||||
|
|
||||||
;; Highlight current line.
|
|
||||||
(when window-system (global-hl-line-mode t))
|
|
||||||
|
|
||||||
;; Highlight matching parentheses.
|
;; Highlight matching parentheses.
|
||||||
(show-paren-mode t)
|
(show-paren-mode t)
|
||||||
|
|
||||||
|
@ -71,7 +68,11 @@
|
||||||
;; for ncurses development, uncomment this:
|
;; for ncurses development, uncomment this:
|
||||||
;; (setq geiser-guile-binary "/usr/local/bin/guile-ncurses-shell")
|
;; (setq geiser-guile-binary "/usr/local/bin/guile-ncurses-shell")
|
||||||
|
|
||||||
(setq geiser-active-implementations '(chez guile))
|
(setq geiser-active-implementations '(chez))
|
||||||
|
|
||||||
|
(add-hook 'scheme-mode-hook 'hl-sexp-mode)
|
||||||
|
(add-hook 'lisp-mode-hook 'hl-sexp-mode)
|
||||||
|
(add-hook 'emacs-lisp-mode-hook 'hl-sexp-mode)
|
||||||
|
|
||||||
;; I use emacs as my window manager.
|
;; I use emacs as my window manager.
|
||||||
(exwm-config)
|
(exwm-config)
|
||||||
|
|
20
packages.el
20
packages.el
|
@ -106,9 +106,9 @@
|
||||||
(setq mc/always-run-for-all t))
|
(setq mc/always-run-for-all t))
|
||||||
|
|
||||||
;; avy - jump around files more easily
|
;; avy - jump around files more easily
|
||||||
(use-package avy
|
;; (use-package avy
|
||||||
:ensure t
|
;; :ensure t
|
||||||
:bind ("M-s" . avy-goto-char))
|
;; :bind ("M-s" . avy-goto-char))
|
||||||
|
|
||||||
;; Amazing git porcelain.
|
;; Amazing git porcelain.
|
||||||
(use-package magit
|
(use-package magit
|
||||||
|
@ -202,6 +202,18 @@
|
||||||
|
|
||||||
(use-package exwm
|
(use-package exwm
|
||||||
:init
|
:init
|
||||||
|
(defun fez/exwm-init-hook ()
|
||||||
|
(exwm-workspace-switch-create 1))
|
||||||
|
|
||||||
|
(require 'exwm-randr)
|
||||||
|
(setq exwm-randr-workspace-output-plist '(0 "HDMI-0"))
|
||||||
|
(add-hook 'exwm-randr-screen-change-hook
|
||||||
|
(lambda ()
|
||||||
|
(start-process-shell-command
|
||||||
|
"xrandr" nil "xrandr --output HDMI-0 --left-of DVI-D-0 --auto")))
|
||||||
|
(exwm-randr-enable)
|
||||||
|
|
||||||
|
|
||||||
(defun exwm-config ()
|
(defun exwm-config ()
|
||||||
"EXWM configuration."
|
"EXWM configuration."
|
||||||
;; Set the initial workspace number.
|
;; Set the initial workspace number.
|
||||||
|
@ -232,6 +244,8 @@
|
||||||
(number-sequence 0 9)))
|
(number-sequence 0 9)))
|
||||||
;; 's-a': Toggle X mouse
|
;; 's-a': Toggle X mouse
|
||||||
([?\s-a] . fez/toggle-x-mouse)
|
([?\s-a] . fez/toggle-x-mouse)
|
||||||
|
;; 's-<space>': Toggle keyboard layouts
|
||||||
|
([?\s-\ ] . fez/swap-keyboard)
|
||||||
;; 's-l': Toggle line-mode and char-mode for the current window.
|
;; 's-l': Toggle line-mode and char-mode for the current window.
|
||||||
([?\s-l] . exwm-input-toggle-keyboard)
|
([?\s-l] . exwm-input-toggle-keyboard)
|
||||||
;; windmove movement commands
|
;; windmove movement commands
|
||||||
|
|
Loading…
Reference in New Issue