├── .gitignore ├── LICENSE ├── README.md ├── ping.wav ├── selectric-mode.el ├── selectric-move.wav └── selectric-type.wav /.gitignore: -------------------------------------------------------------------------------- 1 | # Compiled 2 | *.elc 3 | 4 | # Packaging 5 | .cask 6 | 7 | # macOS 8 | .DS_Store -------------------------------------------------------------------------------- /LICENSE: -------------------------------------------------------------------------------- 1 | GNU LESSER GENERAL PUBLIC LICENSE 2 | Version 3, 29 June 2007 3 | 4 | Copyright (C) 2007 Free Software Foundation, Inc. 5 | Everyone is permitted to copy and distribute verbatim copies 6 | of this license document, but changing it is not allowed. 7 | 8 | 9 | This version of the GNU Lesser General Public License incorporates 10 | the terms and conditions of version 3 of the GNU General Public 11 | License, supplemented by the additional permissions listed below. 12 | 13 | 0. Additional Definitions. 14 | 15 | As used herein, "this License" refers to version 3 of the GNU Lesser 16 | General Public License, and the "GNU GPL" refers to version 3 of the GNU 17 | General Public License. 18 | 19 | "The Library" refers to a covered work governed by this License, 20 | other than an Application or a Combined Work as defined below. 21 | 22 | An "Application" is any work that makes use of an interface provided 23 | by the Library, but which is not otherwise based on the Library. 24 | Defining a subclass of a class defined by the Library is deemed a mode 25 | of using an interface provided by the Library. 26 | 27 | A "Combined Work" is a work produced by combining or linking an 28 | Application with the Library. The particular version of the Library 29 | with which the Combined Work was made is also called the "Linked 30 | Version". 31 | 32 | The "Minimal Corresponding Source" for a Combined Work means the 33 | Corresponding Source for the Combined Work, excluding any source code 34 | for portions of the Combined Work that, considered in isolation, are 35 | based on the Application, and not on the Linked Version. 36 | 37 | The "Corresponding Application Code" for a Combined Work means the 38 | object code and/or source code for the Application, including any data 39 | and utility programs needed for reproducing the Combined Work from the 40 | Application, but excluding the System Libraries of the Combined Work. 41 | 42 | 1. Exception to Section 3 of the GNU GPL. 43 | 44 | You may convey a covered work under sections 3 and 4 of this License 45 | without being bound by section 3 of the GNU GPL. 46 | 47 | 2. Conveying Modified Versions. 48 | 49 | If you modify a copy of the Library, and, in your modifications, a 50 | facility refers to a function or data to be supplied by an Application 51 | that uses the facility (other than as an argument passed when the 52 | facility is invoked), then you may convey a copy of the modified 53 | version: 54 | 55 | a) under this License, provided that you make a good faith effort to 56 | ensure that, in the event an Application does not supply the 57 | function or data, the facility still operates, and performs 58 | whatever part of its purpose remains meaningful, or 59 | 60 | b) under the GNU GPL, with none of the additional permissions of 61 | this License applicable to that copy. 62 | 63 | 3. Object Code Incorporating Material from Library Header Files. 64 | 65 | The object code form of an Application may incorporate material from 66 | a header file that is part of the Library. You may convey such object 67 | code under terms of your choice, provided that, if the incorporated 68 | material is not limited to numerical parameters, data structure 69 | layouts and accessors, or small macros, inline functions and templates 70 | (ten or fewer lines in length), you do both of the following: 71 | 72 | a) Give prominent notice with each copy of the object code that the 73 | Library is used in it and that the Library and its use are 74 | covered by this License. 75 | 76 | b) Accompany the object code with a copy of the GNU GPL and this license 77 | document. 78 | 79 | 4. Combined Works. 80 | 81 | You may convey a Combined Work under terms of your choice that, 82 | taken together, effectively do not restrict modification of the 83 | portions of the Library contained in the Combined Work and reverse 84 | engineering for debugging such modifications, if you also do each of 85 | the following: 86 | 87 | a) Give prominent notice with each copy of the Combined Work that 88 | the Library is used in it and that the Library and its use are 89 | covered by this License. 90 | 91 | b) Accompany the Combined Work with a copy of the GNU GPL and this license 92 | document. 93 | 94 | c) For a Combined Work that displays copyright notices during 95 | execution, include the copyright notice for the Library among 96 | these notices, as well as a reference directing the user to the 97 | copies of the GNU GPL and this license document. 98 | 99 | d) Do one of the following: 100 | 101 | 0) Convey the Minimal Corresponding Source under the terms of this 102 | License, and the Corresponding Application Code in a form 103 | suitable for, and under terms that permit, the user to 104 | recombine or relink the Application with a modified version of 105 | the Linked Version to produce a modified Combined Work, in the 106 | manner specified by section 6 of the GNU GPL for conveying 107 | Corresponding Source. 108 | 109 | 1) Use a suitable shared library mechanism for linking with the 110 | Library. A suitable mechanism is one that (a) uses at run time 111 | a copy of the Library already present on the user's computer 112 | system, and (b) will operate properly with a modified version 113 | of the Library that is interface-compatible with the Linked 114 | Version. 115 | 116 | e) Provide Installation Information, but only if you would otherwise 117 | be required to provide such information under section 6 of the 118 | GNU GPL, and only to the extent that such information is 119 | necessary to install and execute a modified version of the 120 | Combined Work produced by recombining or relinking the 121 | Application with a modified version of the Linked Version. (If 122 | you use option 4d0, the Installation Information must accompany 123 | the Minimal Corresponding Source and Corresponding Application 124 | Code. If you use option 4d1, you must provide the Installation 125 | Information in the manner specified by section 6 of the GNU GPL 126 | for conveying Corresponding Source.) 127 | 128 | 5. Combined Libraries. 129 | 130 | You may place library facilities that are a work based on the 131 | Library side by side in a single library together with other library 132 | facilities that are not Applications and are not covered by this 133 | License, and convey such a combined library under terms of your 134 | choice, if you do both of the following: 135 | 136 | a) Accompany the combined library with a copy of the same work based 137 | on the Library, uncombined with any other library facilities, 138 | conveyed under the terms of this License. 139 | 140 | b) Give prominent notice with the combined library that part of it 141 | is a work based on the Library, and explaining where to find the 142 | accompanying uncombined form of the same work. 143 | 144 | 6. Revised Versions of the GNU Lesser General Public License. 145 | 146 | The Free Software Foundation may publish revised and/or new versions 147 | of the GNU Lesser General Public License from time to time. Such new 148 | versions will be similar in spirit to the present version, but may 149 | differ in detail to address new problems or concerns. 150 | 151 | Each version is given a distinguishing version number. If the 152 | Library as you received it specifies that a certain numbered version 153 | of the GNU Lesser General Public License "or any later version" 154 | applies to it, you have the option of following the terms and 155 | conditions either of that published version or of any later version 156 | published by the Free Software Foundation. If the Library as you 157 | received it does not specify a version number of the GNU Lesser 158 | General Public License, you may choose any version of the GNU Lesser 159 | General Public License ever published by the Free Software Foundation. 160 | 161 | If the Library as you received it specifies that a proxy can decide 162 | whether future versions of the GNU Lesser General Public License shall 163 | apply, that proxy's public statement of acceptance of any version is 164 | permanent authorization for you to choose that version for the 165 | Library. 166 | 167 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # selectric-mode 2 | 3 | ![MELPA](https://melpa.org/packages/selectric-mode-badge.svg) 4 | ![MELPA Stable](https://stable.melpa.org/packages/selectric-mode-badge.svg) 5 | 6 | ![IBM 7 | Selectric](https://upload.wikimedia.org/wikipedia/commons/9/9f/IBM_Selectric.jpg) 8 | 9 | *Photo By Oliver Kurmis - Self-photographed, CC BY 2.5, 10 | https://commons.wikimedia.org/w/index.php?curid=104015* 11 | 12 | Make your Emacs sound like a proper typewriter. Extremely useful if you 13 | have a puny, silent, rubberish, non-clicky keyboard. 14 | 15 | "I noticed this in the Spacemacs config and have it set up for occasional use. 16 | Makes writing documentation feel more important." -- mcguire on Hacker News 17 | 18 | The sound of the typewriter moving and typing was recorded by a person 19 | nicknamed "secretmojo" and is available on 20 | https://www.freesound.org/people/secretmojo/sounds/224012/ and the bell 21 | was extracted from https://freesound.org/people/knufds/sounds/345955/, 22 | recorded by "knufds", both available under a Creative Commons 23 | license. The sound of the margin bell, was extracted from 24 | https://www.youtube.com/watch?v=vOIPN70f_-I by Joe Heyming. 25 | 26 | To install it, simply add it to your load-path, require it: 27 | 28 | ```elisp 29 | (add-to-list 'load-path "~/.emacs.d/plugins/selectric-mode") 30 | (require 'selectric-mode) 31 | ``` 32 | 33 | And then activate/deactivate with M-x `selectric-mode`. When it's 34 | activated, you'll hear a typing sound for confirmation. When it 35 | deactivates, you'll hear a carriage movement sound instead. 36 | 37 | Alternatively, you can install it from [MELPA](https://melpa.org).To 38 | install it, type M-x package-install [ret] selectric-mode 39 | 40 | ![selectric-mode on 41 | MELPA](https://raw.githubusercontent.com/wiki/rbanffy/selectric-mode/melpa.png) 42 | -------------------------------------------------------------------------------- /ping.wav: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rbanffy/selectric-mode/1840de71f7414b7cd6ce425747c8e26a413233aa/ping.wav -------------------------------------------------------------------------------- /selectric-mode.el: -------------------------------------------------------------------------------- 1 | ;;; selectric-mode.el --- IBM Selectric mode for Emacs -*- lexical-binding: t; -*- 2 | 3 | ;; Author: Ricardo Bánffy 4 | ;; Maintainer: Ricardo Banffy 5 | ;; URL: https://github.com/rbanffy/selectric-mode 6 | ;; Keywords: multimedia, convenience, typewriter, selectric 7 | ;; Version: 1.4.2 8 | 9 | ;; Copyright (C) 2015-2020 Ricardo Bánffy 10 | 11 | ;; This program is free software; you can redistribute it and/or modify 12 | ;; it under the terms of the GNU General Public License as published by 13 | ;; the Free Software Foundation, either version 3 of the License, or 14 | ;; (at your option) any later version. 15 | 16 | ;; This program is distributed in the hope that it will be useful, 17 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 18 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 19 | ;; GNU General Public License for more details. 20 | 21 | ;; You should have received a copy of the GNU General Public License 22 | ;; along with this program. If not, see . 23 | 24 | ;;; Commentary: 25 | 26 | ;; This minor mode plays the sound of an IBM Selectric typewriter as 27 | ;; you type. 28 | 29 | ;;; Code: 30 | 31 | (defconst selectric-files-path (file-name-directory load-file-name)) 32 | 33 | (defvar selectric-mode-map (make-sparse-keymap) "Selectric mode's keymap.") 34 | 35 | (defvar selectric-affected-bindings-list 36 | '("" "" "" "" "DEL" "C-d") 37 | "The keys we'll override.") 38 | 39 | (defvar selectric-saved-bindings (make-hash-table :test 'equal) 40 | "The hash map where we'll save the key bindings.") 41 | 42 | (defun selectric-save-bindings (keys hashmap) 43 | "Save the key-bindings of the keys in KEYS into HASHMAP." 44 | (dolist (key keys) 45 | (puthash key (global-key-binding (kbd key)) hashmap))) 46 | 47 | (defun selectric-make-sound (sound-file-name) 48 | "Play sound from file SOUND-FILE-NAME using platform-appropriate program." 49 | (if (eq system-type 'darwin) 50 | (start-process "*Messages*" nil "afplay" sound-file-name) 51 | (start-process "*Messages*" nil "aplay" sound-file-name))) 52 | 53 | (defun selectric-type-sound () 54 | "Make the sound of the printing element hitting the paper." 55 | (progn 56 | (selectric-make-sound (format "%sselectric-type.wav" selectric-files-path)) 57 | (unless (minibufferp) 58 | (if (= (current-column) (current-fill-column)) 59 | (selectric-make-sound (format "%sping.wav" selectric-files-path)))))) 60 | 61 | (defun selectric-move-sound () 62 | "Make the carriage movement sound." 63 | (selectric-make-sound (format "%sselectric-move.wav" selectric-files-path))) 64 | 65 | ;;;###autoload 66 | (define-minor-mode selectric-mode 67 | "Toggle Selectric mode. 68 | Interactively with no argument, this command toggles the mode. A 69 | positive prefix argument enables the mode, any other prefix 70 | argument disables it. From Lisp, argument omitted or nil enables 71 | the mode, `toggle' toggles the state. 72 | 73 | When Selectric mode is enabled, your Emacs will sound like an IBM 74 | Selectric typewriter." 75 | :global t 76 | ;; The initial value. 77 | :init-value nil 78 | ;; The indicator for the mode line. 79 | :lighter " Selectric" 80 | :group 'selectric 81 | :keymap selectric-mode-map 82 | 83 | (if selectric-mode 84 | (progn 85 | ; Save the current bindings into a map 86 | (selectric-save-bindings 87 | selectric-affected-bindings-list selectric-saved-bindings) 88 | 89 | ; Override the key bindings 90 | (dolist (key selectric-affected-bindings-list) 91 | (define-key selectric-mode-map (kbd key) 92 | (lambda () 93 | (interactive) 94 | (prog2 95 | (selectric-move-sound) 96 | (call-interactively (gethash key selectric-saved-bindings)))))) 97 | 98 | (add-hook 'post-self-insert-hook 'selectric-type-sound) 99 | ; (global-set-key [left] (noisy-move 'left-char)) 100 | (selectric-type-sound)) 101 | (progn 102 | ; Whem we exit the mode, the original map is restored. 103 | (remove-hook 'post-self-insert-hook 'selectric-type-sound) 104 | (selectric-move-sound))) 105 | ) 106 | 107 | (provide 'selectric-mode) 108 | ;;; selectric-mode.el ends here 109 | -------------------------------------------------------------------------------- /selectric-move.wav: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rbanffy/selectric-mode/1840de71f7414b7cd6ce425747c8e26a413233aa/selectric-move.wav -------------------------------------------------------------------------------- /selectric-type.wav: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rbanffy/selectric-mode/1840de71f7414b7cd6ce425747c8e26a413233aa/selectric-type.wav --------------------------------------------------------------------------------