scip/dot-emacs
1
0
Fork 0
mirror of https://codeberg.org/scip/dot-emacs.git synced 2025-12-17 12:30:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

enhanced cleaner

Browse Source
This commit is contained in:
Thomas von Dein
2019-01-12 14:33:28 +01:00
parent 24612c96dd
commit c70fe17790
2 changed files with 510 additions and 500 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
.emacs
View File

@@ -1,4 +1,4 @@
;; Toms Emacs Config - portable - version ("20190112.01") -*-emacs-lisp-*- ;; Toms Emacs Config - portable - version ("20190112.02") -*-emacs-lisp-*-
;; * Introduction ;; * Introduction
;; This is my emacs config, it is more than twenty years old. It ;; This is my emacs config, it is more than twenty years old. It
@@ -757,6 +757,9 @@
;; 20190112.01 ;; 20190112.01
;; - added wdired cleanup function ;; - added wdired cleanup function
;; 20190112.02
;; - enhanced cleaner
;; ** TODO ;; ** TODO
;; - check helpful https://github.com/wilfred/helpful ;; - check helpful https://github.com/wilfred/helpful
@@ -784,7 +787,7 @@
;; My emacs config has a version (consisting of a timestamp with a ;; My emacs config has a version (consisting of a timestamp with a
;; serial), which I display in the mode line. So I can clearly see, if ;; serial), which I display in the mode line. So I can clearly see, if
;; I'm using an outdated config somewhere. ;; I'm using an outdated config somewhere.
(defvar tvd-emacs-version "20190112.01") (defvar tvd-emacs-version "20190112.02")
;; -------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------
@@ -1859,9 +1862,9 @@ might be bad."
(interactive) (interactive)
(delete-trailing-whitespace) (delete-trailing-whitespace)
(save-excursion (save-excursion
(replace-regexp "[\(\)'`]" "" nil (point-min) (point-max)) (replace-regexp "[\(\)'`#,_&\!]" "" nil (point-min) (point-max))
(replace-string " " "-" nil (point-min) (point-max)) (replace-string " " "-" nil (point-min) (point-max))
(replace-string "---" "-" nil (point-min) (point-max)) (replace-regexp "--*" "-" nil (point-min) (point-max))
(replace-string "ä" "ae" nil (point-min) (point-max)) (replace-string "ä" "ae" nil (point-min) (point-max))
(replace-string "ö" "oe" nil (point-min) (point-max)) (replace-string "ö" "oe" nil (point-min) (point-max))
(replace-string "ü" "ue" nil (point-min) (point-max)) (replace-string "ü" "ue" nil (point-min) (point-max))

999
emacs.html
View File

File diff suppressed because it is too large Load Diff