Emacs: insert-file-name function
parent
1900ddad9a
commit
21b333bb2c
|
@ -5,21 +5,39 @@
|
|||
|
||||
(define-abbrev-table 'awk-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'c++-mode-abbrev-table
|
||||
'(
|
||||
))
|
||||
(define-abbrev-table 'bibtex-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'c++-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'c-mode-abbrev-table
|
||||
'(
|
||||
("printf" "" cc-printf 0)
|
||||
))
|
||||
|
||||
(define-abbrev-table 'calendar-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'comint-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'completion-list-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'conf-colon-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'conf-javaprop-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'conf-ppd-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'conf-space-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'conf-unix-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'conf-windows-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'conf-xdefaults-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'docTeX-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'doctex-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'emacs-lisp-byte-code-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'emacs-lisp-mode-abbrev-table '())
|
||||
|
@ -32,10 +50,14 @@
|
|||
|
||||
(define-abbrev-table 'help-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'html-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'idl-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'java-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'latex-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'lisp-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'lua-mode-abbrev-table '())
|
||||
|
@ -48,10 +70,16 @@
|
|||
|
||||
(define-abbrev-table 'occur-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'org-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'outline-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'perl-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'pike-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'plain-tex-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'po-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'process-menu-mode-abbrev-table '())
|
||||
|
@ -60,17 +88,28 @@
|
|||
|
||||
(define-abbrev-table 'select-tags-table-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'sgml-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'sh-mode-abbrev-table
|
||||
'(
|
||||
("null" "" sh-redirect-to-null 0)
|
||||
("/null" "" sh-redirect-to-null 0)
|
||||
("null" "" sh-redirect-to-null 2)
|
||||
))
|
||||
|
||||
(define-abbrev-table 'shell-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'slitex-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'snippet-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'special-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'tabulated-list-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'tex-mode-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'tex-shell-abbrev-table '())
|
||||
|
||||
(define-abbrev-table 'text-mode-abbrev-table
|
||||
'(
|
||||
("ac" "avec" nil 0)
|
||||
|
@ -87,7 +126,7 @@
|
|||
("atm" "at the moment" nil 1)
|
||||
("autom" "automatique" nil 2)
|
||||
("automt" "automatiquement" nil 2)
|
||||
("bcp" "beaucoup" nil 2)
|
||||
("bcp" "beaucoup" nil 3)
|
||||
("biblio" "bibliothèque" nil 1)
|
||||
("biblios" "bibliothèques" nil 1)
|
||||
("btw" "by the way" nil 1)
|
||||
|
@ -102,7 +141,7 @@
|
|||
("cmt" "comment" nil 1)
|
||||
("coeur" "cœur" nil 1)
|
||||
("coeurs" "cœurs" nil 1)
|
||||
("config" "configuration" nil 1)
|
||||
("config" "configuration" nil 2)
|
||||
("configs" "configurations" nil 1)
|
||||
("cpd" "cependant" nil 2)
|
||||
("cvg" "converge" nil 1)
|
||||
|
|
|
@ -152,6 +152,27 @@ current directory, suitable for creation"
|
|||
(and looping (not (equal current-dir "/")))))
|
||||
(if (equal current-dir "/") nil (expand-file-name makefile current-dir))))
|
||||
|
||||
(defun insert-file-name (filename &optional args)
|
||||
"Insert name of file FILENAME into buffer after point.
|
||||
Prefixed with \\[universal-argument], expand the file name to its
|
||||
fully canocalized path. See `expand-file-name'.
|
||||
|
||||
Prefixed with \\[negative-argument], use relative path to file
|
||||
name from current directory, `default-directory'. See
|
||||
`file-relative-name'.
|
||||
|
||||
The default with no prefix is to insert the file name exactly as
|
||||
it appears in the minibuffer prompt."
|
||||
;; Based on insert-file in Emacs -- ashawley 20080926
|
||||
(interactive "*fInsert file name: \nP")
|
||||
(cond ((eq '- args)
|
||||
(insert (file-relative-name filename)))
|
||||
((not (null args))
|
||||
(insert (expand-file-name filename)))
|
||||
(t
|
||||
(insert filename))))
|
||||
(define-key my-keys-minor-mode-map "\C-x\M-f" 'insert-file-name)
|
||||
|
||||
(defun kill-all-buffers ()
|
||||
"Kill all buffers, leaving *scratch* only."
|
||||
(interactive)
|
||||
|
|
Loading…
Reference in New Issue