--- /dev/null
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+ "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<!-- Created by htmlize-1.34 in css mode. -->
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+ <head>
+ <title>02-keys.el</title>
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
+ <meta name="author" content="Steve Youngs" />
+ <meta name="owner" content="steve@sxemacs.org" />
+ <style type="text/css">
+ <!--
+ body {
+ color: #ffffff;
+ background-color: #000000;
+ }
+ .comment {
+ /* font-lock-comment-face */
+ color: #87ceeb;
+ }
+ .doc-string {
+ /* font-lock-doc-string-face */
+ color: #32cd32;
+ }
+ .function-name {
+ /* font-lock-function-name-face */
+ color: #ffff00;
+ font-weight: bold;
+ }
+ .keyword {
+ /* font-lock-keyword-face */
+ color: #fa8072;
+ }
+ .reference {
+ /* font-lock-reference-face */
+ color: #40e0d0;
+ }
+ .string {
+ /* font-lock-string-face */
+ color: #00cd00;
+ }
+ .variable-name {
+ /* font-lock-variable-name-face */
+ color: #ffdab9;
+ }
+
+ a {
+ color: #FF0000;
+ background-color: inherit;
+ font: inherit;
+ font-weight: bold;
+ text-decoration: underline;
+ }
+ a:hover {
+ color: #FFFFFF;
+ background-color: #FD00FD;
+ text-decoration: underline;
+ }
+ .img a:hover {
+ background-color: #000000;
+ text-decoration: none;
+ }
+ -->
+ </style>
+ </head>
+ <body>
+ <pre>
+<span class="comment">;; 02-keys.el --- Keybindings
+</span>
+<span class="comment">;; Copyright (C) 2007 - 2020 Steve Youngs
+</span>
+<span class="comment">;; Author: Steve Youngs <<a href="mailto:steve@sxemacs.org">steve@sxemacs.org</a>>
+;; Maintainer: Steve Youngs <<a href="mailto:steve@sxemacs.org">steve@sxemacs.org</a>>
+;; Created: <2007-12-02>
+;; Time-stamp: <Thursday Apr 9, 2020 06:44:18 steve>
+;; Download: <<a href="https://downloads.sxemacs.org/SYinits/">https://downloads.sxemacs.org/SYinits/</a>>
+;; HTMLised: <<a href="https://www.sxemacs.org/SYinits/02-keys.html">https://www.sxemacs.org/SYinits/02-keys.html</a>>
+;; Git Repo: git clone https://git.sxemacs.org/syinit
+;; Keywords: init, compile
+</span>
+<span class="comment">;; This file is part of SYinit
+</span>
+<span class="comment">;; Redistribution and use in source and binary forms, with or without
+;; modification, are permitted provided that the following conditions
+;; are met:
+;;
+;; 1. Redistributions of source code must retain the above copyright
+;; notice, this list of conditions and the following disclaimer.
+;;
+;; 2. Redistributions in binary form must reproduce the above copyright
+;; notice, this list of conditions and the following disclaimer in the
+;; documentation and/or other materials provided with the distribution.
+;;
+;; 3. Neither the name of the author nor the names of any contributors
+;; may be used to endorse or promote products derived from this
+;; software without specific prior written permission.
+;;
+;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR "AS IS" AND ANY EXPRESS OR
+;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+;; DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+;; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
+;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
+;; OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
+;; IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+</span>
+<span class="comment">;;; Commentary:
+;;
+;; Sets up my keybindings
+;;
+;; BTW, there are a number of different ways to actually set a
+;; keybinding in emacs and I honestly could not tell you which way
+;; is best. I don't think any one way is really any better than
+;; any other. I've used most (all?) of them here in this file.
+;; Whichever format you like is the right one to use. </span><span class="comment"><span class="reference">:-</span></span><span class="comment">)
+</span>
+<span class="comment">;;; Credits:
+;;
+;; The HTML version of this file was created with Hrvoje Niksic's
+;; htmlize.el which is part of the XEmacs "text-modes" package.
+;;
+</span>
+<span class="comment">;;; Todo:
+;;
+;;
+</span>
+<span class="comment">;;; Code:
+</span>
+<span class="comment">;</span><span class="comment"><span class="reference">:*=======================</span></span><span class="comment">
+;</span><span class="comment"><span class="reference">:*</span></span><span class="comment"> Global key bindings
+</span>(global-set-key "<span class="doc-string">\C-xw</span>" 'what-line)
+(global-set-key [f2] 'undo)
+(global-set-key [(super tab)] 'lisp-complete-symbol)
+(global-set-key [(meta f3)] 'view-file)
+(global-set-key [f5] "<span class="doc-string">\M-w</span>")
+(global-set-key [f6] "<span class="doc-string">\C-y</span>")
+(global-set-key [f7] 'save-buffer)
+(global-set-key [f8] 'start-kbd-macro)
+(global-set-key [f9] 'end-kbd-macro)
+(global-set-key [(control f8)] 'call-last-kbd-macro)
+(global-set-key [(control f5)] 'sy-extent-kill-save)
+(global-set-key [XF86Copy] #'copy-primary-selection)
+(global-set-key [XF86Cut] #'kill-primary-selection)
+(global-set-key [XF86Paste] #'yank-clipboard-selection)
+
+<span class="comment">;</span><span class="comment"><span class="reference">:*=======================</span></span><span class="comment">
+;</span><span class="comment"><span class="reference">:*</span></span><span class="comment"> compose-key tô t¥pé fünky £ïttlê chãrs
+</span>(<span class="keyword">require</span> '<span class="reference">x-compose</span>)
+(global-set-key "<span class="doc-string">\C-cm</span>" compose-map)
+
+<span class="comment">;</span><span class="comment"><span class="reference">:*=======================</span></span><span class="comment">
+;</span><span class="comment"><span class="reference">:*</span></span><span class="comment"> cursor into first line with C-pageup
+</span>(<span class="keyword">define-key</span> <span class="variable-name">global-map</span> '(control prior) 'beginning-of-buffer)
+(<span class="keyword">define-key</span> <span class="variable-name">global-map</span> '(control next) 'end-of-buffer)
+
+<span class="comment">;</span><span class="comment"><span class="reference">:*=======================</span></span><span class="comment">
+;</span><span class="comment"><span class="reference">:*</span></span><span class="comment"> Enable menubar accelerators (double-wow!)
+</span>(setq menu-accelerator-enabled 'menu-fallback)
+(setq menu-accelerator-modifiers '(super))
+(setq menu-accelerator-prefix nil)
+(<span class="keyword">define-key</span> <span class="variable-name">global-map</span> [f10] 'accelerate-menu)
+
+<span class="comment">;</span><span class="comment"><span class="reference">:*=======================</span></span><span class="comment">
+;</span><span class="comment"><span class="reference">:*</span></span><span class="comment"> Popup window with buffer list ; from XEmacs FAQ (2.61)
+</span>(<span class="keyword">defun</span> <span class="function-name">cw-build-buffers</span> ()
+ "<span class="doc-string">Popup buffer menu.</span>"
+ (interactive "<span class="string">@</span>")
+ (run-hooks 'activate-menubar-hook)
+ (popup-menu (car (find-menu-item current-menubar '("<span class="string">Buffers</span>")))))
+(global-set-key '(control !) 'cw-build-buffers)
+
+<span class="comment">;</span><span class="comment"><span class="reference">:*=======================</span></span><span class="comment">
+;</span><span class="comment"><span class="reference">:*</span></span><span class="comment"> keymapping to resize frames
+</span>(<span class="keyword">define-key</span> <span class="variable-name">global-map</span> [(control x) (up)] #'shrink-window)
+(<span class="keyword">define-key</span> <span class="variable-name">global-map</span> [(control x) (down)] #'enlarge-window)
+(<span class="keyword">define-key</span> <span class="variable-name">global-map</span> [(control x) (left)] #'shrink-window-horizontally)
+(<span class="keyword">define-key</span> <span class="variable-name">global-map</span> [(control x) (right)] #'enlarge-window-horizontally)
+
+<span class="comment">;</span><span class="comment"><span class="reference">:*=======================</span></span><span class="comment">
+;</span><span class="comment"><span class="reference">:*</span></span><span class="comment"> bind key to kill-whole-line
+</span>(global-set-key '(control ,) 'kill-entire-line)
+
+<span class="comment">;</span><span class="comment"><span class="reference">:*=======================</span></span><span class="comment">
+;</span><span class="comment"><span class="reference">:*</span></span><span class="comment"> Set C-x C-b to use ibuffer
+</span>(<span class="keyword">define-key</span> <span class="variable-name">global-map</span> [(control x) (control b)] 'ibuffer)
+
+<span class="comment">;</span><span class="comment"><span class="reference">:*=======================</span></span><span class="comment">
+;</span><span class="comment"><span class="reference">:*</span></span><span class="comment"> OK, so just who the hell is sending those emails
+</span>(<span class="keyword">define-key</span> <span class="variable-name">global-map</span> [f12] 'from)
+
+<span class="comment">;</span><span class="comment"><span class="reference">:*=======================</span></span><span class="comment">
+;</span><span class="comment"><span class="reference">:*</span></span><span class="comment"> Bind the Euro to a key
+</span>(<span class="keyword">define-key</span> <span class="variable-name">global-map</span> "<span class="doc-string">\C-ce</span>"
+ (<span class="keyword">lambda</span> ()
+ (interactive)
+ (insert (make-char 'latin-iso8859-15 #x24))))
+
+<span class="comment">;</span><span class="comment"><span class="reference">:*=======================</span></span><span class="comment">
+;</span><span class="comment"><span class="reference">:*</span></span><span class="comment"> Toggle in/out of eshell
+</span>(global-set-key (kbd "<span class="string">C-c s</span>") 'eshell-toggle)
+
+<span class="comment">;</span><span class="comment"><span class="reference">:*=======================</span></span><span class="comment">
+;</span><span class="comment"><span class="reference">:*</span></span><span class="comment"> Extra Mouse buttons (wheel etc)
+;;
+;; A little bragging never hurts... SXEmacs allows you to bind up to
+;; 32 mouse buttons. I'm not sure about GNU/Emacs, but XEmacs only
+;; lets you bind 10 (or is it 12?). OK, I've never seen a rat that
+;; had 32 buttons, but you never know what these gamer kiddies will
+;; want one day. </span><span class="comment"><span class="reference">:-</span></span><span class="comment">)
+</span>(<span class="keyword">require</span> '<span class="reference">mwheel</span>)
+(<span class="keyword">define-key</span> <span class="variable-name">global-map</span> [(button4)] 'mwheel-scroll)
+(<span class="keyword">define-key</span> <span class="variable-name">global-map</span> [(button5)] 'mwheel-scroll)
+(<span class="keyword">define-key</span> <span class="variable-name">global-map</span> [(shift button4)] 'mwheel-scroll)
+(<span class="keyword">define-key</span> <span class="variable-name">global-map</span> [(shift button5)] 'mwheel-scroll)
+(<span class="keyword">define-key</span> <span class="variable-name">global-map</span> [(button9)] 'beginning-of-buffer)
+(<span class="keyword">define-key</span> <span class="variable-name">global-map</span> [(button8)] 'end-of-buffer)
+(<span class="keyword">define-key</span> <span class="variable-name">global-map</span> [(button10)] 'recenter)
+
+<span class="comment">;</span><span class="comment"><span class="reference">:*=======================</span></span><span class="comment">
+;</span><span class="comment"><span class="reference">:*</span></span><span class="comment"> Numeric keypad
+</span>(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-divide] [?/])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-multiply] [?*])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-subtract] [?-])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-add] [?+])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-enter] [?\r])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-decimal] [?.])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-begin] [begin])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-home] [home])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-end] [end])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-next] [next])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-prior] [prior])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-left] [left])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-right] [right])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-up] [up])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-down] [down])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-insert] [insert])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-delete] [delete])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-0] [?0])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-1] [?1])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-2] [?2])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-3] [?3])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-4] [?4])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-5] [?5])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-6] [?6])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-7] [?7])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-8] [?8])
+(<span class="keyword">define-key</span> <span class="variable-name">key-translation-map</span> [kp-9] [?9])
+<span class="comment">;</span><span class="comment"><span class="reference">:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::</span></span><span class="comment">
+</span>(message "<span class="doc-string">Key maps set successfully</span>")
+</pre>
+ <!-- SXEmacs Logo -->
+ <div class="img">
+ <a href="https://www.sxemacs.org/" target="_parent">
+ <img style="padding:0px 5px 0px 0px;border:0;width:88px;height:31px"
+ src="/Images/cbsx.png"
+ title="This page was created entirely in SXEmacs"
+ alt="Created with SXEmacs" />
+ </a>
+<!-- End SXEmacs Logo -->
+<!-- Valid XHTML 1.0 -->
+ <a href="http://validator.w3.org/check?uri=https%3a%2f%2fwww.sxemacs.org%2fSYinits%2f02-keys.html" target="_blank">
+ <img style="padding:0px 5px 0px 10px;border:0;width:88px;height:31px"
+ src="/Images/valid-xhtml10.png"
+ title="Valid XHTML 1.0 Transitional!"
+ alt="Valid XHTML 1.0 Transitional!" />
+ </a>
+ </div>
+<!-- End Valid XHTML 1.0 -->
+
+ <h6>Copyright © 2020 Steve Youngs<br />
+ Verbatim copying and distribution is permitted in any medium,
+ providing this notice is preserved.<br />
+<!-- hhmts start -->
+Last modified: Wed Apr 15 18:11:41 AEST 2020
+<!-- hhmts end -->
+ </h6>
+
+</body>
+</html>
projects / website / blobdiff