;; Author: Steve Youngs <steve@sxemacs.org>
;; Maintainer: Steve Youngs <steve@sxemacs.org>
;; Created: <2007-12-02>
-;; Time-stamp: <Saturday Apr 18, 2020 21:13:16 steve>
+;; Time-stamp: <Sunday 11 Apr 2021 14:10:05 (steve)>
;; Download: <https://downloads.sxemacs.org/SYinits>
;; HTMLised: <https://www.sxemacs.org/SYinits/10-pkgs.html>
;; Git Repo: git clone https://git.sxemacs.org/syinit
(mpd-send "repeat 0")
(mpd-playpause))
-;; Audio keybindings
-(global-set-key [XF86AudioPlay] #'mpd-playpause)
-(global-set-key [XF86AudioStop] #'mpd-stop)
-(global-set-key [XF86AudioNext] #'mpd-next-track)
-(global-set-key [XF86AudioPrev] #'mpd-previous-track)
-(global-set-key [XF86AudioRaiseVolume] #'mpd-volume-up)
-(global-set-key [XF86AudioLowerVolume] #'mpd-volume-down)
-(global-set-key [XF86AudioMute] #'mpd-volume-mute/unmute)
-
;; Mpd frame props
(unless (or (string= (getenv "KDE_FULL_SESSION") "true")
(string= (getenv "SAWFISH_IS_RUNNING") "true"))
(require 'func-menu)
(add-hook 'find-file-hooks 'fume-setup-buffer)
(add-hook 'Manual-mode-hook 'turn-on-fume-mode)
-(define-key fume-mode-map [(control button3)] #'mouse-function-menu)
(setq
fume-display-in-modeline-p t
fume-menu-path '("View"))
(jka-compr-install)
;:*======================
-;:* iswitchb
+;:* iswitchb (keybindings in 90-keys.el)
;: A really cool package to switch buffers
(require 'iswitchb)
(setq iswitchb-default-method 'samewindow)
(iswitchb-default-keybindings)
-(add-hook
- 'iswitchb-define-mode-map-hook
- '(lambda ()
- (define-key iswitchb-mode-map " " 'iswitchb-next-match)
- (define-key iswitchb-mode-map [(control ?\ )] 'iswitchb-prev-match)
- (define-key iswitchb-mode-map "\C-a" 'iswitchb-toggle-ignore)))
;:*======================
;:* backup
;:*======================
;:* Kyle Jones' redo package.
(when running-xemacs
- (require 'redo)
- (global-set-key [(control f2)] 'redo))
+ (require 'redo))
(require 'scroll-in-place)
(turn-on-pending-delete nil)
;:*======================
-;:* comment-region
+;:* comment-region (keybindings in 90-keys.el)
;: Comment or uncomment each line in the region.
;: Comments are terminated on each line, even for syntax in which newline does
;: not end the comment. Blank lines do not get comments.
(require 'newcomment)
-(global-set-key '(control f12) 'comment-or-uncomment-region)
-(global-set-key '(meta f12) 'comment-or-uncomment-region)
;;; FIXME: SXEInits
;:*======================
(frame-live-p speedbar-frame)
(frame-visible-p speedbar-frame))]
"--"))
-(global-set-key [(f4)] 'speedbar-get-focus)
(require 'sb-image)
(require 'sb-info)
(require 'sb-texinfo)
(sy-esh-cdl 'build))
; :*======================
-; :* FFAP -- Find File At Point
+; :* FFAP -- Find File At Point (keybindings in 90-keys.el)
(require 'ffap)
-
;; Make sure ffap does NOT get in my way...
(setq ffap-bindings nil)
-
-(global-set-key [f3] #'find-file-at-point)
-(global-set-key [(control x) ?4 f3] #'ffap-other-window)
-(global-set-key [(control x) ?5 f3] #'ffap-other-frame)
-(global-set-key [(shift button3)] #'ffap-at-mouse)
-(global-set-key [(control shift button3)] #'ffap-menu)
-
(setq
ffap-machine-p-known 'accept
ffap-machine-p-unknown 'accept
(let ((epa-armor t))
(call-interactively #'epa-export-keys)))
-(define-key epa-key-list-mode-map [?O] #'sy-epa-export-key)
-
;:*=======================
;:* Howm thing. (this needs mule, but that is default so no biggie)
(require 'howm)
;; winmgr-mode uses, so nuke winmgr-mode from auto-mode-alist
(remove-alist 'auto-mode-alist "\\.[^/]*wm2?\\(?:rc\\)?\\'")
-;; The howm people are nuts, they bind C-h to scroll-down
-;; Get rid of it and replace with DEL and BACKSPACE
-(define-key howm-menu-mode-map "\C-h" nil)
-(define-key howm-menu-mode-map [delete] #'scroll-down)
-(define-key howm-menu-mode-map [backspace] #'scroll-down)
-(define-key riffle-summary-mode-map "\C-h" nil)
-(define-key riffle-summary-mode-map [delete] #'scroll-other-window-down)
-(define-key riffle-summary-mode-map [backspace] #'scroll-other-window-down)
-(define-key riffle-contents-mode-map "\C-h" nil)
-(define-key riffle-contents-mode-map [delete] #'scroll-down)
-(define-key riffle-contents-mode-map [backspace] #'scroll-down)
-
-;; Add a binding to show the active todo list
-(global-set-key [(control ?c) ?t] #'howm-list-active-todo)
-
;; Another problem with howm... it fucks up window configuration
;; Advice time!
(defadvice howm-keyword-search (before howm-save-kw (&rest args) activate)
;:* snap!
;; save/load snapshot of application to/from text
;; Usage:
-
-;; (1) M-x snap-record on application, e.g. Wanderlust.
+;; (1) M-x snap-record on application, e.g. Gnus.
;; (2) Yank (C-y) on any buffer, e.g. *scratch* or ~/memo.txt.
;; (3) M-x snap-play on yanked text ==> snapshot (1) is restored.
+;;
+;; I have #'snap-record bound to `H-s r' (90-keys.el)
(require 'snap)
-(global-set-key [(hyper ?s) ?r] #'snap-record)
;; env var trickery.
(setq snap-abbreviate-environment-variables
(require 'man)
;; You can't follow xrefs via keyboard, so...
+;; See 90-keys.el for the bindings
(defun sy:Manual-follow-xref-kbd ()
"Invoke `manual-entry' on the cross-reference at point."
(interactive)
(substring (extent-string ext) 0 (match-beginning 0))
nil t))))))
-(define-key Manual-mode-map [(control return)] #'sy:Manual-follow-xref-kbd)
-(define-key Manual-mode-map [button1] #'Manual-follow-xref)
-
;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*
(message "packages loaded")