rodolphe/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Removing emacs configuration.

Browse source
This commit is contained in:
Rodolphe Breard 2015-10-17 10:43:06 +02:00
parent 64d2c15a46
commit 50332d9f32
5 changed files with 1 additions and 525 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
.bash_aliases
View file

@ -6,6 +6,5 @@ alias l='ll -A'
alias sudo='sudo '
alias grep='grep -n --color=auto'
alias j='jobs'
alias ne='emacs'
alias df='df -h'
alias lock='xscreensaver-command --lock'

2
.bashrc
View file

@ -9,7 +9,7 @@ shopt -s checkwinsize
shopt -s histappend
export HISTCONTROL=ignoredups
export CLICOLOR=1
export EDITOR='emacs'
export EDITOR='vim'
export PAGER='less'
export USER_NICKNAME="Rodolphe Breard"
export DEBEMAIL="packages+deb@what.tf"

12
.emacs.d/init.el
View file

@ -1,12 +0,0 @@
(add-to-list 'load-path "/usr/share/emacs/site-lisp")
(add-to-list 'load-path "~/.emacs.d/lisp")
(load "modes.el")
(load "std_comment.el")
(setq column-number-mode t)
(setq x-alt-keysym 'meta)
(setq-default indent-tabs-mode nil)
(setq-default tab-width 4)
(setq indent-line-function 'insert-tab)

34
.emacs.d/lisp/modes.el
View file

@ -1,34 +0,0 @@
;; Python
(autoload 'python-mode "python-mode.el" "Python mode." t)
(setq auto-mode-alist (append '(("/*.\.python$" . python-mode)) auto-mode-alist))
(setq auto-mode-alist (append '(("/*.\.py$" . python-mode)) auto-mode-alist))
;; RUST
(autoload 'rust-mode "rust-mode" "Rust editing mode." t)
(setq auto-mode-alist (cons '("\.rs$" . rust-mode) auto-mode-alist))
;; Toml
(setq auto-mode-alist (cons '("\.toml$" . conf-mode) auto-mode-alist))
;; LUA
(autoload 'lua-mode "lua-mode" "Lua editing mode." t)
(setq auto-mode-alist (cons '("\.lua$" . lua-mode) auto-mode-alist))
;; PHP
(autoload 'php-mode "php-mode.el" "Php mode." t)
(setq auto-mode-alist (append '(("/*.\.php[0-9]?$" . php-mode)) auto-mode-alist))
;; MarkDown
(autoload 'markdown-mode "markdown-mode.el" "Markdown mode." t)
(setq auto-mode-alist (cons '("\.markdown$" . markdown-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.mdwn$" . markdown-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.mdt$" . markdown-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.md$" . markdown-mode) auto-mode-alist))
;; JSON
(setq auto-mode-alist (cons '("\.json$" . js-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.geojson$" . js-mode) auto-mode-alist))
;; HTML
(setq auto-mode-alist (cons '("\.template$" . html-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.tpl$" . html-mode) auto-mode-alist))

477
.emacs.d/lisp/std_comment.el
View file

@ -1,477 +0,0 @@
;;
;; std_comment.el for Emacs in ~/.emacs.d
;;
;; Made by Frederic Denis <fred@epita.fr>
;; Improved by Rodolphe Breard <rodolphe@what.tf>
;;
;; Based on Comment routines by Isaac
;;
(global-set-key "" 'do_insert_time)
(global-set-key "" 'std-file-header)
(setq header-copyright "Copyright (c) ")
(if (setq user-nickname (getenv "USER_NICKNAME"))
t
(setq user-nickname (user-full-name))
)
(setq std-c-alist '( (cs . "/*") (cc . " * ") (ce . " */") )
std-css-alist '( (cs . "/*") (cc . "** ") (ce . "*/") )
std-cpp-alist '( (cs . "//") (cc . "// ") (ce . "//") )
std-pov-alist '( (cs . "//") (cc . "// ") (ce . "//") )
std-python-alist '( (cs . "#") (cc . "# ") (ce . "#") )
std-java-alist '( (cs . "//") (cc . "// ") (ce . "//") )
std-javascript-alist '( (cs . "//") (cc . "// ") (ce . "//") )
std-rust-alist '( (cs . "//") (cc . "// ") (ce . "//") )
std-latex-alist '( (cs . "%%") (cc . "%% ") (ce . "%%") )
std-lisp-alist '( (cs . ";;") (cc . ";; ") (ce . ";;") )
std-xdefault-alist '( (cs . "!!") (cc . "!! ") (ce . "!!") )
std-pascal-alist '( (cs . "{ ") (cc . " ") (ce . "}" ) )
std-makefile-alist '( (cs . "##") (cc . "## ") (ce . "##") )
std-markdown-alist '( (cs . "<!---") (cc . " -- ") (ce . "-->") )
std-text-alist '( (cs . "##") (cc . "## ") (ce . "##") )
std-fundamental-alist '( (cs . " ") (cc . " ") (ce . " ") )
std-html-alist '( (cs . "<!--") (cc . " -- ") (ce . "-->"))
std-php-alist '( (cs . "<?php") (cc . "// ") (ce . "//"))
std-nroff-alist '( (cs . "\\\"") (cc . "\\\" ") (ce . "\\\""))
std-sscript-alist '( (cs . "#!/bin/sh") (cc . "## ") (ce . "##") )
std-perl-alist '( (cs . "#!/usr/bin/perl -w") (cc . "## ")(ce . "##") )
std-cperl-alist '( (cs . "#!/usr/bin/perl -w") (cc . "## ")(ce . "##") )
std-rst-alist '( (cs . ".. ") (cc . " ") (ce . "") )
)
(setq std-modes-alist '(("C" . std-c-alist)
("C/l" . std-c-alist)
("CSS" . std-c-alist)
("PoV" . std-pov-alist)
("Py" . std-python-alist)
("C++" . std-cpp-alist)
("C++/l" . std-cpp-alist)
("Lisp" . std-lisp-alist)
("Lisp Interaction" . std-lisp-alist)
("Emacs-Lisp" . std-lisp-alist)
("Fundamental" . std-fundamental-alist)
("Shell-script" . std-sscript-alist)
("Makefile" . std-makefile-alist)
("BSDmakefile" . std-makefile-alist)
("GNUmakefile" . std-makefile-alist)
("Markdown" . std-markdown-alist)
("Perl" . std-cperl-alist)
("CPerl" . std-cperl-alist)
("xdefault" . std-xdefault-alist)
("java" . std-java-alist)
("Java/l" . std-java-alist)
("Javascript" . std-javascript-alist)
("latex" . std-latex-alist)
("Pascal" . stdp-ascal-alist)
("Text" . std-text-alist)
("HTML" . std-html-alist)
("TPL" . std-html-alist)
("XML" . std-html-alist)
("PHP" . std-php-alist)
("Nroff" . std-nroff-alist)
("TeX" . std-latex-alist)
("LaTeX" . std-latex-alist)
("Rust" . std-rust-alist)
("ReST" . std-rst-alist)
)
)
(defun std-get (a)
(interactive)
(cdr (assoc a (eval (cdr (assoc mode-name std-modes-alist)))))
)
(setq license-beer
'("This program is under the Beerware license.\n"
"Redistribution and use in source and binary forms, with or without\n"
"modification, are permitted provided that the following conditions\n"
"are met:\n"
"\n"
"Redistributions of source code must retain the above copyright notice,\n"
"\n"
"If you like this piece of code and/or what it does, you would pay me\n"
"a beer ;-)\n"
"\n"
"That's all, have fun\n"
)
)
(setq license-gpl2
'("This program is free software; you can redistribute it and/or modify\n"
"it under the terms of the GNU General Public License as published by\n"
"the Free Software Foundation; either version 2 of the License, or\n"
"(at your option) any later version.\n"
"\n"
"This program is distributed in the hope that it will be useful,\n"
"but WITHOUT ANY WARRANTY; without even the implied warranty of\n"
"MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n"
"GNU General Public License for more details.\n"
"\n"
"You should have received a copy of the GNU General Public License along\n"
"with this program; if not, write to the Free Software Foundation, Inc.,\n"
"51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\n")
)
(setq license-gpl3
'("This program is free software: you can redistribute it and/or modify\n"
"it under the terms of the GNU General Public License as published by\n"
"the Free Software Foundation, either version 3 of the License, or\n"
"(at your option) any later version.\n"
"\n"
"This program is distributed in the hope that it will be useful,\n"
"but WITHOUT ANY WARRANTY; without even the implied warranty of\n"
"MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n"
"GNU General Public License for more details.\n"
"\n"
"You should have received a copy of the GNU General Public License\n"
"along with this program. If not, see <http://www.gnu.org/licenses/>.\n")
)
(setq license-agpl
'("This program is free software: you can redistribute it and/or modify\n"
"it under the terms of the GNU Affero General Public License as published by\n"
"the Free Software Foundation, either version 3 of the License, or\n"
"(at your option) any later version.\n"
"\n"
"This program is distributed in the hope that it will be useful,\n"
"but WITHOUT ANY WARRANTY; without even the implied warranty of\n"
"MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n"
"GNU Affero General Public License for more details.\n"
"\n"
"You should have received a copy of the GNU Affero General Public License\n"
"along with this program. If not, see <http://www.gnu.org/licenses/>.\n"
"\n")
)
(setq license-lgpl
'("This library is free software; you can redistribute it and/or\n"
"modify it under the terms of the GNU Lesser General Public\n"
"License as published by the Free Software Foundation; either\n"
"version 3 of the License, or (at your option) any later version.\n"
"\n"
"This library is distributed in the hope that it will be useful,\n"
"but WITHOUT ANY WARRANTY; without even the implied warranty of\n"
"MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\n"
"Lesser General Public License for more details.\n"
"\n"
"You should have received a copy of the GNU General Public License\n"
"along with this program. If not, see <http://www.gnu.org/licenses/>.\n")
)
(setq license-fdl
'("Permission is granted to copy, distribute and/or modify this document\n"
"under the terms of the GNU Free Documentation License, Version 1.3\n"
"or any later version published by the Free Software Foundation;\n"
"with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts.\n"
"A copy of the license is included in the section entitled \"GNU\n"
"Free Documentation License\".\n")
)
(setq license-apache
'("Licensed under the Apache License, Version 2.0 (the \"License\");\n"
"you may not use this file except in compliance with the License.\n"
"You may obtain a copy of the License at\n"
"\n"
" http://www.apache.org/licenses/LICENSE-2.0\n"
"\n"
"Unless required by applicable law or agreed to in writing, software\n"
"distributed under the License is distributed on an \"AS IS\" BASIS,\n"
"WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.\n"
"See the License for the specific language governing permissions and\n"
"limitations under the License.\n")
)
(setq license-bsd
'("Redistribution and use in source and binary forms, with or without\n"
"modification, are permitted provided that the following conditions are\n"
"met:\n"
"\n"
" 1. Redistributions of source code must retain the above copyright\n"
" notice, this list of conditions and the following disclaimer.\n"
"\n"
" 2. Redistributions in binary form must reproduce the above copyright\n"
" notice, this list of conditions and the following disclaimer in the\n"
" documentation and/or other materials provided with the distribution.\n"
"\n"
" 3. The name of the author may not be used to endorse or promote\n"
" products derived from this software without specific prior written\n"
" permission.\n"
"\n"
"THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR\n"
"IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED\n"
"WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE\n"
"DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,\n"
"INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES\n"
"(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR\n"
"SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)\n"
"HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,\n"
"STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING\n"
"IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE\n"
"POSSIBILITY OF SUCH DAMAGE.\n")
)
(setq license-isc
'("Permission to use, copy, modify, and/or distribute this software for any\n"
"purpose with or without fee is hereby granted, provided that the above\n"
"copyright notice and this permission notice appear in all copies.\n"
"\n"
"THE SOFTWARE IS PROVIDED \"AS IS\" AND THE AUTHOR DISCLAIMS ALL WARRANTIES\n"
"WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF\n"
"MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR\n"
"ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES\n"
"WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN\n"
"ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF\n"
"OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.\n")
)
(setq license-mit
'("Permission is hereby granted, free of charge, to any person obtaining a copy\n"
"of this software and associated documentation files (the \"Software\"), to deal\n"
"in the Software without restriction, including without limitation the rights\n"
"to use, copy, modify, merge, publish, distribute, sublicense, and/or sell\n"
"copies of the Software, and to permit persons to whom the Software is\n"
"furnished to do so, subject to the following conditions:\n"
"\n"
"The above copyright notice and this permission notice shall be included in\n"
"all copies or substantial portions of the Software.\n"
"\n"
"THE SOFTWARE IS PROVIDED \"AS IS\", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\n"
"IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\n"
"FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE\n"
"AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER\n"
"LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,\n"
"OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN\n"
"THE SOFTWARE.\n")
)
(setq license-cecill
'("This software is governed by the CeCILL license under French law and\n"
"abiding by the rules of distribution of free software. You can use,\n"
"modify and/ or redistribute the software under the terms of the CeCILL\n"
"license as circulated by CEA, CNRS and INRIA at the following URL\n"
"\"http://www.cecill.info\".\n"
"\n"
"As a counterpart to the access to the source code and rights to copy,\n"
"modify and redistribute granted by the license, users are provided only\n"
"with a limited warranty and the software's author, the holder of the\n"
"economic rights, and the successive licensors have only limited\n"
"liability.\n"
"\n"
"In this respect, the user's attention is drawn to the risks associated\n"
"with loading, using, modifying and/or developing or reproducing the\n"
"software by the user in light of its specific status of free software,\n"
"that may mean that it is complicated to manipulate, and that also\n"
"therefore means that it is reserved for developers and experienced\n"
"professionals having in-depth computer knowledge. Users are therefore\n"
"encouraged to load and test the software's suitability as regards their\n"
"requirements in conditions enabling the security of their systems and/or\n"
"data to be ensured and, more generally, to use and operate it in the \n"
"same conditions as regards security.\n"
"\n"
"The fact that you are presently reading this means that you have had\n"
"knowledge of the CeCILL license and that you accept its terms.\n")
)
(setq license-cecill-b
'("This software is governed by the CeCILL-B license under French law and\n"
"abiding by the rules of distribution of free software. You can use,\n"
"modify and/ or redistribute the software under the terms of the CeCILL-B\n"
"license as circulated by CEA, CNRS and INRIA at the following URL\n"
"\"http://www.cecill.info\".\n"
"\n"
"As a counterpart to the access to the source code and rights to copy,\n"
"modify and redistribute granted by the license, users are provided only\n"
"with a limited warranty and the software's author, the holder of the\n"
"economic rights, and the successive licensors have only limited\n"
"liability.\n"
"\n"
"In this respect, the user's attention is drawn to the risks associated\n"
"with loading, using, modifying and/or developing or reproducing the\n"
"software by the user in light of its specific status of free software,\n"
"that may mean that it is complicated to manipulate, and that also\n"
"therefore means that it is reserved for developers and experienced\n"
"professionals having in-depth computer knowledge. Users are therefore\n"
"encouraged to load and test the software's suitability as regards their\n"
"requirements in conditions enabling the security of their systems and/or\n"
"data to be ensured and, more generally, to use and operate it in the \n"
"same conditions as regards security.\n"
"\n"
"The fact that you are presently reading this means that you have had\n"
"knowledge of the CeCILL-B license and that you accept its terms.\n")
)
(setq license-cecill-c
'("This software is governed by the CeCILL-C license under French law and\n"
"abiding by the rules of distribution of free software. You can use,\n"
"modify and/ or redistribute the software under the terms of the CeCILL-C\n"
"license as circulated by CEA, CNRS and INRIA at the following URL\n"
"\"http://www.cecill.info\".\n"
"\n"
"As a counterpart to the access to the source code and rights to copy,\n"
"modify and redistribute granted by the license, users are provided only\n"
"with a limited warranty and the software's author, the holder of the\n"
"economic rights, and the successive licensors have only limited\n"
"liability.\n"
"\n"
"In this respect, the user's attention is drawn to the risks associated\n"
"with loading, using, modifying and/or developing or reproducing the\n"
"software by the user in light of its specific status of free software,\n"
"that may mean that it is complicated to manipulate, and that also\n"
"therefore means that it is reserved for developers and experienced\n"
"professionals having in-depth computer knowledge. Users are therefore\n"
"encouraged to load and test the software's suitability as regards their\n"
"requirements in conditions enabling the security of their systems and/or\n"
"data to be ensured and, more generally, to use and operate it in the \n"
"same conditions as regards security.\n"
"\n"
"The fact that you are presently reading this means that you have had\n"
"knowledge of the CeCILL-C license and that you accept its terms.\n")
)
(defun std-file-header ()
"Puts a standard header at the beginning of the file.\n(According to mode)"
(interactive)
(goto-char (point-min))
(let ((projname "toto")(location "titi"))
(setq license (read-from-minibuffer
(format "License ? : ")))
(setq location (getenv "PWD"))
(insert-string (std-get 'cs))
(newline)
(insert-string (concat (std-get 'cc)
header-copyright
(format-time-string "%Y" (current-time))
" "
user-nickname))
(newline)
(setq ltow nil)
(if (string= license "gpl")
(setq ltow license-gpl3))
(if (string= license "gpl3")
(setq ltow license-gpl3))
(if (string= license "gpl2")
(setq ltow license-gpl2))
(if (string= license "agpl")
(setq ltow license-agpl))
(if (string= license "lgpl")
(setq ltow license-lgpl))
(if (string= license "fdl")
(setq ltow license-fdl))
(if (string= license "apache")
(setq ltow license-apache))
(if (string= license "bsd")
(setq ltow license-bsd))
(if (string= license "isc")
(setq ltow license-isc))
(if (string= license "mit")
(setq ltow license-mit))
(if (string= license "cecill")
(setq ltow license-cecill))
(if (string= license "cecill-b")
(setq ltow license-cecill-b))
(if (string= license "cecill-c")
(setq ltow license-cecill-c))
(if (string= license "beer")
(setq ltow license-beer))
(if ltow
(progn
(insert-string (std-get 'cc))
(newline)
(while ltow
(insert-string (concat (std-get 'cc)
(car ltow)))
(setq ltow (cdr ltow)))
;(insert-string (std-get 'ce))
;(newline)
))
(insert-string (std-get 'ce))
(newline)))
(defun insert-std-vertical-comments ()
"Inserts vertical comments (according to mode)."
(interactive)
(beginning-of-line)
(insert-string (std-get 'cs))
(newline)
(let ((ok t)(comment ""))
(while ok
(setq comment (read-from-minibuffer
(format "Type comment (RETURN to quit) : ")))
(if (= 0 (length comment))
(setq ok nil)
(progn
(insert-string (concat (std-get 'cc) comment))
(newline)))))
(insert-string (std-get 'ce))
(newline))
(defun std-toggle-comment ()
"Toggles line comment on or off (according to mode)."
(interactive)
(save-excursion
(let (beg end)
(beginning-of-line)
(setq beg (point))
(end-of-line)
(setq end (point))
(save-restriction
(if (not (equal beg end))
(progn
(narrow-to-region beg end)
(goto-char beg)
(if (search-forward (std-get 'cs) end t)
(progn
(beginning-of-line)
(replace-string (std-get 'cs) "")
(replace-string (std-get 'ce) ""))
(progn
(beginning-of-line)
(insert-string (std-get 'cs))
(end-of-line)
(insert-string (std-get 'ce)))))))))
;; (indent-according-to-mode)
(indent-for-tab-command)
(next-line 1))
;;;; Generating local keymaps for exotics modes.
;;; In CPerl mode, C-c C-h is used to do some help.
;;; so it is C-c C-h h
;;; For working, it requires info pages about perl
(add-hook 'cperl-mode-hook
'(lambda ()
(define-key cperl-mode-map ""
'comment-region)
(define-key cperl-mode-map "h"
'std-file-header)))
;; for perl-mode
(add-hook 'perl-mode-hook
'(lambda ()
(define-key perl-mode-map ""
'comment-region)))
;; for all kind of lisp code
(add-hook 'emacs-lisp-mode-hook
'(lambda ()
(define-key emacs-lisp-mode-map ""
'comment-region)))
(add-hook 'lisp-mode-hook
'(lambda ()
(define-key lisp-mode-map ""
'comment-region)))
;; for La(TeX)-mode
(add-hook 'tex-mode-hook
'(lambda ()
(define-key tex-mode-map ""
'comment-region)))