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

fix #1, added flag to reset default directory

Browse Source
This commit is contained in:
Thomas von Dein
2018-07-30 17:24:11 +02:00
parent 9c602ea4e5
commit 3b525a8d5a
1 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
autoscratch-mode.el
View File

@@ -1,6 +1,6 @@
;;; autoscratch-mode.el --- automatically switch scratch buffer mode ;;; autoscratch-mode.el --- automatically switch scratch buffer mode
;; Copyright (C) 2017, T.v.Dein <tlinden@cpan.org> ;; Copyright (C) 2017-2018, T.v.Dein <tlinden@cpan.org>
;; This file is NOT part of Emacs. ;; This file is NOT part of Emacs.
@@ -19,7 +19,7 @@
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
;; USA ;; USA
;; Version: 0.02 ;; Version: 0.03
;; Author: T.v.Dein <tlinden@cpan.org> ;; Author: T.v.Dein <tlinden@cpan.org>
;; Keywords: files ;; Keywords: files
;; URL: https://github.com/tlinden/autoscratch ;; URL: https://github.com/tlinden/autoscratch
@@ -117,6 +117,10 @@ such a character is # which is the comment-char in many modes."
(defcustom autoscratch-trigger-after 5 (defcustom autoscratch-trigger-after 5
"Max chars to be entered to force trigger the default form.") "Max chars to be entered to force trigger the default form.")
(defcustom autoscratch-reset-default-directory nil
"If set to true, `default-directory' will be set to `~/' in new
scratch buffers")
;;;; Public Vars ;;;; Public Vars
(defvar autoscratch-trigger-hook () (defvar autoscratch-trigger-hook ()
@@ -148,7 +152,9 @@ Executes `autoscratch-rename-hook' afterwards."
(interactive) (interactive)
(let ((buf (get-buffer-create "*scratch*"))) (let ((buf (get-buffer-create "*scratch*")))
(switch-to-buffer buf) (switch-to-buffer buf)
(autoscratch-mode))) (autoscratch-mode)
))
(defun autoscratch-select(modelist) (defun autoscratch-select(modelist)
"Interactively ask for major mode to switch to. "Interactively ask for major mode to switch to.
@@ -290,7 +296,11 @@ after it switched mode based on a trigger and create a new
`autoscratch-buffer' in the background. In order to enable this `autoscratch-buffer' in the background. In order to enable this
feature, set `autoscratch-fork-after-trigger' to t. feature, set `autoscratch-fork-after-trigger' to t.
\\{autoscratch-mode-map}") \\{autoscratch-mode-map}"
;; fixes github#1
(if autoscratch-reset-default-directory
(setq default-directory "~/")))
(provide 'autoscratch-mode) (provide 'autoscratch-mode)