From 4e36065b36c4fa7d5600e11a9672867d62385153 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Tue, 19 Apr 2022 20:06:53 -0700 Subject: remove the need for `use-package' in my-settings.el --- emacs/custom/my-settings.el | 28 +++++++++++++++------------- 1 file changed, 15 insertions(+), 13 deletions(-) (limited to 'emacs') diff --git a/emacs/custom/my-settings.el b/emacs/custom/my-settings.el index 4f6621b..a49239a 100644 --- a/emacs/custom/my-settings.el +++ b/emacs/custom/my-settings.el @@ -1,8 +1,8 @@ -;;; my-settings.el --- Sets a number of defaults +;;; my-settings.el --- Sets a number of defaults -*- lexical-binding: t -*- + ;;; Commentary: ;;; Code: -(require 'use-package) (defvar my/custom-settings (expand-file-name "var/emacs-custom.el" user-emacs-directory) "Path to Emacs custom variables.") @@ -20,6 +20,7 @@ (setq auto-save-default nil) ;; don't auto save files (setq auto-save-list-file-prefix nil) ;; no backups (setq create-lockfiles nil) ;; don't use a lock file +(setq confirm-kill-emacs #'yes-or-no-p) ;; ask before killing emacs (setq custom-file my/custom-settings) ;; where to save custom settings (setq make-backup-files nil) ;; really no backups (setq minibuffer-message-timeout 0.5) ;; How long to display an echo-area message @@ -46,27 +47,28 @@ user-mail-address "franck@fcuny.net" add-log-mailing-address "franck@fcuny.net") +(require 'savehist) (setq savehist-file (expand-file-name "var/history" user-emacs-directory)) -(setq url-history-file (expand-file-name "var/url-history" user-emacs-directory)) -(setq bookmark-file (expand-file-name "var/bookmarks" user-emacs-directory)) -(setq url-cookie-file (expand-file-name "var/cookies" user-emacs-directory)) +(setq history-length 1000) +(setq history-delete-duplicates t) +(setq savehist-save-minibuffer-history t) +(add-hook 'after-init-hook #'savehist-mode) + +(require 'midnight) +(add-hook 'after-init-hook #'midnight-mode) -;; delete buffers that have not been displayed in the last 3 days -(use-package midnight - :config - (midnight-mode t)) +(require 'saveplace) +(setq save-place-forget-unreadable-files t) +(add-hook 'after-init-hook #'save-place-mode) (unless (and (fboundp 'server-running-p) (server-running-p)) (server-start)) -(use-package savehist - :init - (savehist-mode)) - (when (memq window-system '(mas ns)) (require 'exec-path-from-shell) (add-hook 'emacs-startup-hook (lambda () (exec-path-from-shell-initialize)))) (provide 'my-settings) + ;;; my-settings.el ends here -- cgit 1.4.1