mirror of
https://codeberg.org/scip/dot-emacs.git
synced 2025-12-16 20:10:58 +01:00
130 lines
6.2 KiB
EmacsLisp
130 lines
6.2 KiB
EmacsLisp
;; *** Config::General mode
|
|
;; **** Config and doc
|
|
;; [[https://github.com/TLINDEN/config-general-mode][config-general-mode]] (also on Melpa).
|
|
|
|
;; My own mode for [[http://search.cpan.org/dist/Config-General/][Config::General]]
|
|
;; config files. Whenever I write some perl stuff, which needs a config file, I use
|
|
;; this module (and I do this a lot). Previously I used conf-mode or html-mode, but
|
|
;; both did not satisfy me. Now (as of 20170625) I solved this mess once and for all.
|
|
|
|
(use-package config-general-mode
|
|
:ensure nil ;; static install
|
|
|
|
:config
|
|
(require 'sh-script)
|
|
|
|
(when (fboundp 'hippie-expand)
|
|
(defun config-general-completion-at-point ()
|
|
"Complete word at point using hippie-expand, if not on a comment."
|
|
(interactive)
|
|
(when (looking-back "[-%$_a-zA-Z0-9]")
|
|
(unless (eq (get-text-property (point) 'face) 'font-lock-comment-face)
|
|
(hippie-expand nil))))
|
|
|
|
(local-set-key (kbd "<tab>") 'config-general-tab-or-expand)
|
|
|
|
;; Inserting a brace or quote automatically inserts the matching pair
|
|
;; use smartparens now
|
|
;; (electric-pair-mode t)
|
|
(setq-local hippie-expand-only-buffers '(config-general-mode))
|
|
|
|
;; configure order of expansion functions
|
|
(if (version< emacs-version "25.1")
|
|
(set (make-local-variable 'hippie-expand-try-functions-list)
|
|
'(try-expand-dabbrev ;; use patched version
|
|
config-general--try-expand-dabbrev-all-buffers
|
|
try-complete-file-name-partially
|
|
try-complete-file-name))
|
|
(set (make-local-variable 'hippie-expand-try-functions-list)
|
|
'(try-expand-dabbrev
|
|
try-expand-dabbrev-all-buffers
|
|
try-complete-file-name-partially
|
|
try-complete-file-name))))
|
|
|
|
(defun config-general-do-electric-tab ()
|
|
"Enter a <TAB> or goto current indentation."
|
|
(interactive)
|
|
(if (eq (point) (line-end-position))
|
|
(indent-for-tab-command)
|
|
(back-to-indentation)))
|
|
|
|
;; FIXME: Use this patched version for older emacsen and the default
|
|
;; for version which contain the patch (if any, ever).
|
|
;;
|
|
;; The original function try-expand-dabbrev-all-buffers doesn't work
|
|
;; correctly, it ignores a buffer-local configuration of the variables
|
|
;; hippie-expand-only-buffers and hippie-expand-ignore-buffers. This
|
|
;; is the patched version of the function.
|
|
;;
|
|
;; Bugreport: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=27501
|
|
(defun config-general--try-expand-dabbrev-all-buffers (old)
|
|
"Try to expand word \"dynamically\", searching all other buffers.
|
|
The argument OLD has to be nil the first call of this function, and t
|
|
for subsequent calls (for further possible expansions of the same
|
|
string). It returns t if a new expansion is found, nil otherwise."
|
|
(let ((expansion ())
|
|
(buf (current-buffer))
|
|
(orig-case-fold-search case-fold-search)
|
|
(heib hippie-expand-ignore-buffers)
|
|
(heob hippie-expand-only-buffers)
|
|
)
|
|
(if (not old)
|
|
(progn
|
|
(he-init-string (he-dabbrev-beg) (point))
|
|
(setq he-search-bufs (buffer-list))
|
|
(setq he-searched-n-bufs 0)
|
|
(set-marker he-search-loc 1 (car he-search-bufs))))
|
|
|
|
(if (not (equal he-search-string ""))
|
|
(while (and he-search-bufs
|
|
(not expansion)
|
|
(or (not hippie-expand-max-buffers)
|
|
(< he-searched-n-bufs hippie-expand-max-buffers)))
|
|
(set-buffer (car he-search-bufs))
|
|
(if (and (not (eq (current-buffer) buf))
|
|
(if heob
|
|
(he-buffer-member heob)
|
|
(not (he-buffer-member heib))))
|
|
(save-excursion
|
|
(save-restriction
|
|
(if hippie-expand-no-restriction
|
|
(widen))
|
|
(goto-char he-search-loc)
|
|
(setq expansion
|
|
(let ((case-fold-search orig-case-fold-search))
|
|
(he-dabbrev-search he-search-string nil)))
|
|
(set-marker he-search-loc (point))
|
|
(if (not expansion)
|
|
(progn
|
|
(setq he-search-bufs (cdr he-search-bufs))
|
|
(setq he-searched-n-bufs (1+ he-searched-n-bufs))
|
|
(set-marker he-search-loc 1 (car he-search-bufs))))))
|
|
(setq he-search-bufs (cdr he-search-bufs))
|
|
(set-marker he-search-loc 1 (car he-search-bufs)))))
|
|
|
|
(set-buffer buf)
|
|
(if (not expansion)
|
|
(progn
|
|
(if old (he-reset-string))
|
|
())
|
|
(progn
|
|
(he-substitute-string expansion t)
|
|
t))))
|
|
|
|
(electric-indent-mode)
|
|
|
|
;; de-activate some senseless bindings
|
|
(local-unset-key (kbd "C-c C-c"))
|
|
(local-unset-key (kbd "C-c C-p"))
|
|
(local-unset-key (kbd "C-c C-u"))
|
|
(local-unset-key (kbd "C-c C-w"))
|
|
(local-unset-key (kbd "C-c C-x"))
|
|
(local-unset-key (kbd "C-c :"))
|
|
|
|
;; from shell-script-mode, turn << into here-doc
|
|
(sh-electric-here-document-mode 1))
|
|
|
|
|
|
(provide 'init-config-general)
|
|
;;; init-config-general.el ends here
|