Emacs: Remove futile hlines

.emacs.d/init.el

@@ -1,5 +1,5 @@
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Emacs config
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Global variables.
 
@@ -193,6 +193,8 @@ To view where the bindings are set in your config files, lookup
   (global-set-key (kbd "C-x g") 'magit-status))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; End of config
+
 ;; We need to put it at the end to make sure it doesn't get overriden by other
 ;; minor modes.
 (mickey-minor-mode 1)
@@ -219,6 +221,3 @@ To view where the bindings are set in your config files, lookup
 ; (setq tramp-ssh-controlmaster-options "-o ControlMaster=auto -o ControlPath='tramp.%%C' -o ControlPersist=no")
 
 (load "local" t t)
-
-;; End of file
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

.emacs.d/lisp/functions.el

@@ -1,6 +1,4 @@
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; FUNCTIONS
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Functions
 
 ;; Note on mark and region: to get a consistent behaviour whether transient mode
 ;; is on or off, check `mark-active' to know if the region is active. It will
@@ -589,6 +587,4 @@ Each paragraph stand on its line."
   (or (and b1 b2)
       (and (not b1) (not b2))))
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (provide 'functions)
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

.emacs.d/lisp/main.el

@@ -1,6 +1,4 @@
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; MAIN
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Main options
 
 ;; Minimal UI. Load early to hide as soon as possible.
 (setq inhibit-startup-screen t)
@@ -350,9 +348,10 @@
 ; In case you find eldoc too distracting.
 ;; (global-eldoc-mode 0)
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (provide 'main)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Old code.
 
 ;; This may be needed for gud/pdb.
 ; (defadvice pop-to-buffer (before cancel-other-window first)

.emacs.d/lisp/mode-awk.el

@@ -1,6 +1,4 @@
-;;==============================================================================
 ;; AWK
-;;==============================================================================
 
 (add-hook-and-eval
  'awk-mode-hook
@@ -12,8 +10,6 @@
    (local-set-key (kbd "C-c C-p") 'awk-printf)
    (set (make-local-variable 'compile-command) (concat "awk " (shell-quote-argument buffer-file-name)))))
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
 (define-skeleton awk-fori
   "for i loop."
   nil

.emacs.d/lisp/mode-bbcode.el

@@ -1,6 +1,4 @@
-;;==============================================================================
 ;; BBcode
-;;==============================================================================
 
 (add-hook-and-eval
  'bbcode-mode-hook

.emacs.d/lisp/mode-cc.el

@@ -1,6 +1,5 @@
-;;==============================================================================
 ;; C/C++
-;;==============================================================================
+
 ;; Should we split this in mode-c and mode-c++?
 
 (defcustom cc-ldlibs "-lm -pthread"

.emacs.d/lisp/mode-dired.el

@@ -1,4 +1,4 @@
-;; Dired options
+;; Dired
 
 ;; On a GNU system, ls has the option to sort folders first.
 (if (string-match "^gnu.*" (prin1-to-string system-type))

.emacs.d/lisp/mode-dot.el

@@ -1,6 +1,4 @@
-;;==============================================================================
-;; Graphviz' dot mode
-;;==============================================================================
+;; Graphviz' dot
 
 (setq graphviz-dot-preview-extension "pdf")
 (defcustom graphviz-dot-view-extension "pdf"

.emacs.d/lisp/mode-ediff.el

@@ -1,4 +1,6 @@
-;; Ediff in one frame.
+;; Ediff
+
+;; In one frame.
 (setq ediff-window-setup-function 'ediff-setup-windows-plain)
 
 ;; Ediff split horizontally by default. ediff split does not seem to

.emacs.d/lisp/mode-eshell.el

@@ -1,4 +1,5 @@
 ;; Eshell
+
 ;; This mode has a lot of hooks.
 ;; `emacs-load-hook' is run at the very beginning; not all variables/functions will be set.
 ;; `emacs-mode-hook' is run once everything is loaded.

.emacs.d/lisp/mode-go.el

@@ -1,6 +1,4 @@
-;;==============================================================================
 ;; Go
-;;==============================================================================
 
 (setq gofmt-command "goimports")
 (setq godoc-command "godoc -ex")

.emacs.d/lisp/mode-gud.el

@@ -1,3 +1,5 @@
+;; GUD
+
 ;; Set GUD to display many windows by default.
 ;; (setq gdb-show-main t)
 (setq gdb-many-windows t)

.emacs.d/lisp/mode-js.el

@@ -1,6 +1,4 @@
-;;==============================================================================
 ;; Javascript
-;;==============================================================================
 
 (defvaralias 'js-indent-level 'tab-width)
 

.emacs.d/lisp/mode-latex.el

@@ -1,6 +1,6 @@
-;;==============================================================================
-;; LaTeX, using the TeX setup
-;;==============================================================================
+;; LaTeX
+
+;; We use the TeX setup.
 (require 'mode-tex)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -363,7 +363,7 @@ The table type is any value found in `latex-table-names'."
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; The magnificent latex-math-preview mode!
-;; TODO: some symbols are not generated properly.
+;; TODO: Some symbols are not generated properly.
 (autoload 'latex-math-preview-expression "latex-math-preview" nil t)
 (autoload 'latex-math-preview-insert-symbol "latex-math-preview" nil t)
 (autoload 'latex-math-preview-save-image-file "latex-math-preview" nil t)
@@ -392,6 +392,4 @@ The table type is any value found in `latex-table-names'."
    ;;              latex-math-preview-pifont-symbol-fonts-symbol-data)))
    ))
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (provide 'mode-latex)
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

.emacs.d/lisp/mode-lua.el

@@ -1,6 +1,4 @@
-;;==============================================================================
 ;; Lua
-;;==============================================================================
 
 (defvaralias 'lua-indent-level 'tab-width)
 

.emacs.d/lisp/mode-makefile.el

@@ -1,4 +1,4 @@
-;; makefile mode setup.
+;; Makefile
 
 (add-hook-and-eval
  'awk-mode-hook

.emacs.d/lisp/mode-mediawiki.el

@@ -1,6 +1,4 @@
-;;==============================================================================
 ;; MediaWiki
-;;==============================================================================
 
 (setq
  mediawiki-site-alist
@@ -31,9 +29,7 @@
    (local-set-key (kbd "C-x C-s") 'save-buffer)
    ))
 
-;;==============================================================================
-;; Skel
-;;==============================================================================
+;; Skeletons
 
 (define-skeleton mediawiki-latex-link
   "Insert link to the LaTeX wikibook."

.emacs.d/lisp/mode-nroff.el

@@ -1,20 +1,13 @@
-;;==============================================================================
 ;; Nroff
-;;==============================================================================
 
 (add-hook-and-eval
  'latex-mode-hook
  (lambda ()
    (local-set-key (kbd "C-c C-b") 'nroff-bold)
-   (local-set-key (kbd "C-c C-i") 'nroff-italic)
-   ))
+   (local-set-key (kbd "C-c C-i") 'nroff-italic)))
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Skeletons
-
 (define-skeleton nroff-bold "Bold text." nil "\\fB" @ _ "\\fR" @)
 (define-skeleton nroff-italic "Italic text." nil "\\fI" @ _ "\\fR" @)
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (provide 'mode-nroff)
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

.emacs.d/lisp/mode-octave.el

@@ -1,9 +1,7 @@
-;;==============================================================================
 ;; Octave
-;;==============================================================================
 
 ;; Set comments to be '%' to be matlab-compatible.
-(add-hook
+(add-hook-and-eval
  'octave-mode-hook
  (lambda ()
    (set (make-local-variable 'comment-start) "% ")))

.emacs.d/lisp/mode-perl.el

@@ -1,6 +1,4 @@
-;;==============================================================================
 ;; Perl
-;;==============================================================================
 
 (defvaralias 'perl-indent-level 'tab-width)
 

.emacs.d/lisp/mode-python.el

@@ -1,6 +1,4 @@
-;;==============================================================================
 ;; Python
-;;==============================================================================
 
 (defun python-version ()
   "Returns \"python2\" or \"python3\" according to the shabang.

.emacs.d/lisp/mode-sgml.el

@@ -1,6 +1,4 @@
-;;==============================================================================
 ;; SGML
-;;==============================================================================
 
 ;; Just because XML is ugly.
 (add-hook-and-eval

.emacs.d/lisp/mode-sh.el

@@ -1,6 +1,4 @@
-;;==============================================================================
-;; Shell
-;;==============================================================================
+;; Sh
 
 (defvaralias 'sh-indentation 'sh-basic-offset)
 

.emacs.d/lisp/mode-tex.el

@@ -1,6 +1,5 @@
-;;==============================================================================
 ;; TeX
-;;==============================================================================
+
 ;; The default tex-mode and AucTeX may seem quite disappointing. Let's use
 ;; custom KISS functions for everything.
 
@@ -20,13 +19,15 @@
 ;; argument.
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; CUSTOM
+;; Custom
+
 (defcustom masterfile nil
   "The file that should be compiled. Useful for modular documents."
   :safe 'stringp)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; VARIABLES
+;; Variables
+
 (defvar tex-extension-list nil
   "List of known TeX exentsions. This list is used by `tex-clean'
   to purge all matching files.")
@@ -35,7 +36,8 @@
   "The TeX index file generator.")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; FUNCTIONS
+;; Functions
+
 (defun tex-set-compiler ()
   "Set `compile-command' for TeX-based document."
   (interactive)

.emacs.d/lisp/mode-texinfo.el

@@ -1,12 +1,9 @@
-;;==============================================================================
-;; Texinfo using TeX setup
-;;==============================================================================
+;; Texinfo
+
+;; We use the TeX setup.
 (require 'tex-mode)
 (require 'mode-tex)
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; FUNCTIONS
-
 (defun texinfo-menu-update ()
   "Update texinfo node menu automatically."
   (interactive)
@@ -14,12 +11,8 @@
   (let
       ;; Master file.
       ((local-master (if (not masterfile) buffer-file-name masterfile)))
-
     (texinfo-multiple-files-update local-master t 8)))
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; HOOKS
-
 (add-hook-and-eval
  'texinfo-mode-hook
  (lambda ()

.emacs.d/lisp/theme.el

@@ -1,6 +1,4 @@
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; THEME
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Theme
 
 ;; I've tried to group colors with some consistency:
 ;; * doc, here-doc, comments, strings
@@ -191,6 +189,4 @@
    (set-face-foreground 'Man-overstrike "cyan")
    (set-face-bold-p 'Man-overstrike nil)))
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (provide 'theme)
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

.emacs.d/lisp/tool-helm.el

@@ -1,3 +1,5 @@
+;; Helm
+
 (when (require 'helm-descbinds nil t)
   (helm-descbinds-mode))
 

.emacs.d/lisp/tool-itranslate.el

@@ -1,4 +1,5 @@
-;;; tool-itranslate.el --- Internet Translation
+;;; Itranslate
+;; Translate text from Internet services
 
 (defvar itranslate-program "translate"
   "The translation program installed on the system.")
@@ -115,5 +116,3 @@ auto-detect. Empty output defaults to English."
        (read-string "Output language: " itranslate-lang-output)))
 
 (provide 'tool-itranslate)
-
-;;; tool-itranslate.el ends here

.emacs.d/lisp/tool-pdf.el

@@ -1,4 +1,4 @@
-;;; tool-pdf.el --- PDF utils
+;;; PDF utils
 
 (defvar pdf-compressor "pdfcompress" "PDF compressor.")
 
@@ -62,5 +62,3 @@ It FILE is not a PDF, the extension is automatically replaced by
       (apply 'start-process "dummy" nil pdf-viewer pdf pdf-viewer-args))))
 
 (provide 'tool-pdf)
-
-;;; tool-pdf.el ends here

.emacs.d/lisp/tool-smiext.el

@@ -1,4 +1,4 @@
-;;; tool-smiext.el --- Hack around SMIE
+;;; Hack around SMIE
 (require 'smie)
 (defcustom smie-align nil "Whether to align function arguments.")
 
@@ -61,5 +61,3 @@ in `smie-align'."
            (current-column)))))))
 
 (provide 'smiext)
-
-;;; tool-smiext.el ends here