bruno/Tools
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

merge lorien/eowyn

Browse Source
This commit is contained in:
Bruno Raoult
2024-01-20 20:38:57 +01:00
parent 63388aaa7a
commit e8a218f7cb
1 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
config/home/emacs.d/init.el
View File

@@ -1,7 +1,7 @@
;;;; ~/.Emacs.d/init.el ;;;; ~/.Emacs.d/init.el
;;;; ;;;;
;;;; emacs configuration ;;;; emacs configuration
;;;; br, 2010-2023 ;;;; br, 2010-2024
;;;; ;;;;
;;;; all personal variables/defun are prefixed with "my/". ;;;; all personal variables/defun are prefixed with "my/".
;; ;;
@@ -34,8 +34,7 @@
"Directory where to store all temp and backup files.") "Directory where to store all temp and backup files.")
(setq backup-directory (concat my/emacs-tmpdir "/backups/") (setq backup-directory (concat my/emacs-tmpdir "/backups/")
save-directory (concat my/emacs-tmpdir "/autosave/") save-directory (concat my/emacs-tmpdir "/autosave/")
auto-save-list-file-prefix (concat my/emacs-tmpdir "/autosave-list/") auto-save-list-file-prefix (concat my/emacs-tmpdir "/autosave-list/"))
)
;; create dirs if necessary ;; create dirs if necessary
(dolist (dir (list backup-directory save-directory auto-save-list-file-prefix)) (dolist (dir (list backup-directory save-directory auto-save-list-file-prefix))
@@ -340,6 +339,9 @@ Return new LIST-VAR value."
tramp-verbose 1) tramp-verbose 1)
;; (customize-set-variable 'tramp-syntax 'simplified) ;; (customize-set-variable 'tramp-syntax 'simplified)
;; Emacs 29.1 ?
;;(autoload #'tramp-register-crypt-file-name-handler "tramp-crypt")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; conf mode ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; conf mode
;; strangely ".cnf" is not here... ;; strangely ".cnf" is not here...
(use-package conf-mode (use-package conf-mode
@@ -460,7 +462,7 @@ Return new LIST-VAR value."
tab-width 2 ; default tab width tab-width 2 ; default tab width
) )
(setq-default indent-tabs-mode nil) (setq-default indent-tabs-mode nil) ; no tabs
(icomplete-mode 0) ; minibuffer completion (icomplete-mode 0) ; minibuffer completion
; soooo sloooow ; soooo sloooow
@@ -758,7 +760,7 @@ in whole buffer. With neither, delete comments on current line."
;; https://emacs.stackexchange.com/questions/10955 ;; https://emacs.stackexchange.com/questions/10955
(advice-add #'vc-git-mode-line-string :filter-return #'my/replace-git-status) (advice-add #'vc-git-mode-line-string :filter-return #'my/replace-git-status)
(defun my/replace-git-status (tstr) (defun my/replace-git-status (tstr)
"Replace git `variable:vc-mode' string with a modified followed by TSTR." "Replace git `variable:vc-mode' string with a UTF8 symbol followed by TSTR."
(let* ((tstr (replace-regexp-in-string "Git" "" tstr)) (let* ((tstr (replace-regexp-in-string "Git" "" tstr))
(first-char (substring tstr 0 1)) (first-char (substring tstr 0 1))
(rest-chars (substring tstr 1))) (rest-chars (substring tstr 1)))
@@ -891,10 +893,11 @@ in whole buffer. With neither, delete comments on current line."
:diminish helm-mode :diminish helm-mode
:init :init
;;(progn ;;(progn
;;(require 'helm-config) ;; (require 'helm-config)
;;(require 'helm-autoloads) ;; (require 'helm-autoloads)
(require 'pcomplete) (require 'pcomplete)
(require 'helm-projectile) (require 'helm-projectile)
;; (require 'tramp)
(setq (setq
helm-candidate-number-limit 100 helm-candidate-number-limit 100
;; From https://gist.github.com/antifuchs/9238468 ;; From https://gist.github.com/antifuchs/9238468