-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
require-package & use-package working
- Loading branch information
潘俊杰
committed
Oct 24, 2018
0 parents
commit 5ec0697
Showing
161 changed files
with
6,576 additions
and
0 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,53 @@ | ||
/url/cache | ||
/.emacs.desktop | ||
/auto-save-list | ||
/network-security.data | ||
/.session | ||
/session.* | ||
/custom.el | ||
*.elc | ||
CVS | ||
.svn | ||
*~ | ||
.cvsignore | ||
.*.lock | ||
/tramp | ||
/TODO | ||
/anything-c-adaptive-history | ||
/.org-id-locations | ||
cookies | ||
/newsticker | ||
/ac-comphist.dat | ||
\#* | ||
/elpa | ||
/elpa-* | ||
site-lisp/package/ | ||
/swank | ||
/.mc-lists.el | ||
/var | ||
/.sqli_history | ||
/frame-restore-parameters | ||
/.achievements | ||
/.bookmarks.el | ||
/history | ||
/helm-adaptive-history | ||
/thumbs/ | ||
/emms/ | ||
/.smex-items | ||
/image-dired/ | ||
/eshell | ||
/.cask/ | ||
/.sx/ | ||
/org-clock-save.el | ||
/ditaa*.jar | ||
/ido.last | ||
/recentf | ||
/viper | ||
/projectile-bookmarks.eld | ||
/anaconda-mode/ | ||
/.historian | ||
/.uptimes.el | ||
/rake.cache | ||
/plantuml.jar | ||
/magithub | ||
/.cache |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,163 @@ | ||
;;; auto-save.el --- Auto save files when idle | ||
|
||
;; Filename: auto-save.el | ||
;; Description: Auto save files when idle | ||
;; Author: Andy Stewart [email protected] | ||
;; Maintainer: Andy Stewart [email protected] | ||
;; Copyright (C) 2013 ~ 2014, Andy Stewart, all rights reserved. | ||
;; Created: 2013-12-31 00:32:00 | ||
;; Version: 0.2 | ||
;; Last-Updated: 2018-07-06 20:42:15 | ||
;; By: Andy Stewart | ||
;; URL: | ||
;; Keywords: autosave | ||
;; Compatibility: GNU Emacs 23.0.60.1 | ||
;; | ||
;; Features that might be required by this library: | ||
;; | ||
;; | ||
;; | ||
|
||
;;; This file is NOT part of GNU Emacs | ||
|
||
;;; License | ||
;; | ||
;; This program is free software; you can redistribute it and/or modify | ||
;; it under the terms of the GNU General Public License as published by | ||
;; the Free Software Foundation; either version 3, or (at your option) | ||
;; any later version. | ||
|
||
;; This program is distributed in the hope that it will be useful, | ||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
;; GNU General Public License for more details. | ||
|
||
;; You should have received a copy of the GNU General Public License | ||
;; along with this program; see the file COPYING. If not, write to | ||
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth | ||
;; Floor, Boston, MA 02110-1301, USA. | ||
|
||
;;; Commentary: | ||
;; | ||
;; Auto save file when emacs idle | ||
;; | ||
|
||
;;; Installation: | ||
;; | ||
;; Put auto-save.el to your load-path. | ||
;; The load-path is usually ~/elisp/. | ||
;; It's set in your ~/.emacs like this: | ||
;; (add-to-list 'load-path (expand-file-name "~/elisp")) | ||
;; | ||
;; And the following to your ~/.emacs startup file. | ||
;; | ||
;; (require 'init-auto-save) | ||
;; (auto-save-enable) | ||
;; | ||
;; Set `auto-save-silent' with non-nil if want emacs save files slient: | ||
;; (setq auto-save-silent t) | ||
;; | ||
;; No need more. | ||
|
||
;;; Change log: | ||
;; | ||
;; 2018/07/06 | ||
;; * Add new option `auto-save-delete-trailing-whitespace'. | ||
;; | ||
;; 2014/01/04 | ||
;; * Add new function `auto-save-enable' to enable auto-save in user config file. | ||
;; * Add options: `auto-save-idle' and `auto-save-silent'. | ||
;; | ||
;; 2008/10/20 | ||
;; First released. | ||
;; | ||
|
||
;;; Acknowledgements: | ||
;; | ||
;; | ||
;; | ||
|
||
;;; TODO | ||
;; | ||
;; | ||
;; | ||
|
||
;;; Require | ||
|
||
|
||
;;; Code: | ||
|
||
(defgroup auto-save nil | ||
"Auto save file when emacs idle." | ||
:group 'auto-save) | ||
|
||
(defcustom auto-save-idle 1 | ||
"The idle seconds to auto save file." | ||
:type 'integer | ||
:group 'auto-save) | ||
|
||
(defcustom auto-save-silent nil | ||
"Nothing to dirty minibuffer if this option is non-nil." | ||
:type 'boolean | ||
:group 'auto-save) | ||
|
||
(defcustom auto-save-delete-trailing-whitespace nil | ||
"Delete trailing whitespace when save if this option is non-nil. | ||
Note, this option is non-nil, will delete all training whitespace execpet current line, | ||
avoid delete current indent space when you programming." | ||
:type 'boolean | ||
:group 'auto-save) | ||
|
||
;; Emacs' default auto-save is stupid to generate #foo# files! | ||
(setq auto-save-default nil) | ||
|
||
(defun auto-save-buffers () | ||
(interactive) | ||
(let ((autosave-buffer-list)) | ||
(ignore-errors | ||
(save-excursion | ||
(dolist (buf (buffer-list)) | ||
(set-buffer buf) | ||
(if (and (buffer-file-name) (buffer-modified-p)) | ||
(progn | ||
(push (buffer-name) autosave-buffer-list) | ||
(if auto-save-silent | ||
(with-temp-message "" | ||
(basic-save-buffer)) | ||
(basic-save-buffer)) | ||
))) | ||
;; Tell user when auto save files. | ||
(unless auto-save-silent | ||
(cond | ||
;; It's stupid tell user if nothing to save. | ||
((= (length autosave-buffer-list) 1) | ||
(message "# Saved %s" (car autosave-buffer-list))) | ||
((> (length autosave-buffer-list) 1) | ||
(message "# Saved %d files: %s" | ||
(length autosave-buffer-list) | ||
(mapconcat 'identity autosave-buffer-list ", "))))) | ||
)))) | ||
|
||
(defun auto-save-delete-trailing-whitespace-except-current-line () | ||
(interactive) | ||
(when auto-save-delete-trailing-whitespace | ||
(let ((begin (line-beginning-position)) | ||
(end (line-end-position))) | ||
(save-excursion | ||
(when (< (point-min) begin) | ||
(save-restriction | ||
(narrow-to-region (point-min) (1- begin)) | ||
(delete-trailing-whitespace))) | ||
(when (> (point-max) end) | ||
(save-restriction | ||
(narrow-to-region (1+ end) (point-max)) | ||
(delete-trailing-whitespace))))))) | ||
|
||
(defun auto-save-enable () | ||
(interactive) | ||
(run-with-idle-timer auto-save-idle t #'auto-save-buffers) | ||
(add-hook 'before-save-hook 'auto-save-delete-trailing-whitespace-except-current-line)) | ||
|
||
(provide 'auto-save) | ||
|
||
;;; auto-save.el ends here |
Oops, something went wrong.