diff -r 3c60aeba5004 -r 9d72f4424570 .emacs-my --- a/.emacs-my Sun Jan 31 00:01:57 2021 +0200 +++ b/.emacs-my Sun Jan 31 00:04:18 2021 +0200 @@ -1,10 +1,5 @@ ;; -*- mode: emacs-lisp; coding: utf-8; fill-column: 78 -*- ;; -;; Written by Oleksandr Gavenko , 2008-2015. -;; -;; This file formed from parts and ideas from many sites/docs and -;; placed in public domain. -;; ;; Config file for GNU Emacs. ;; ;; For load order see README. @@ -166,12 +161,8 @@ (cl-eval-when (compile) (require 'info)) -;; Set in ~/.emacs.d/.emacs-auth: -;; (setq user-full-name "Oleksandr Gavenko") -;; (setq user-mail-address "gavenkoa@gmail.com") -;; (setq user-nick "gavenkoa") -;; (setq user-home-page "http://gavenkoa.users.sf.net") -;; (setq user-home-page "http://defun.work/") +;; Following variables are loaded by (load my-lisp-auth t) from init.el: +;; user-full-name user-mail-address user-nick user-home-page (defvar user-nick (user-login-name) "My nick name.") @@ -1956,8 +1947,8 @@ (add-hook 'org-mode-hook #'mypasshide-mode) (defun my-org-archive-location (path) - "For given PATH make path to archive. Currently add undescore -before file extention. If file name doesn't match + "For given PATH makes path for archive. Currently adds +undescore before file extention. If file name doesn't match `org-agenda-file-regexp' or have no extention return `nil'." (if (and (file-name-extension path) (string-match org-agenda-file-regexp (file-name-nondirectory path)))