equal
deleted
inserted
replaced
1 ;; -*- mode: emacs-lisp; coding: utf-8; fill-column: 78 -*- |
1 ;; -*- mode: emacs-lisp; coding: utf-8; fill-column: 78 -*- |
2 ;; |
|
3 ;; Written by Oleksandr Gavenko <gavenkoa@gmail.com>, 2008-2015. |
|
4 ;; |
|
5 ;; This file formed from parts and ideas from many sites/docs and |
|
6 ;; placed in public domain. |
|
7 ;; |
2 ;; |
8 ;; Config file for GNU Emacs. |
3 ;; Config file for GNU Emacs. |
9 ;; |
4 ;; |
10 ;; For load order see README. |
5 ;; For load order see README. |
11 |
6 |
164 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
159 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
165 (message "user info") |
160 (message "user info") |
166 |
161 |
167 (cl-eval-when (compile) (require 'info)) |
162 (cl-eval-when (compile) (require 'info)) |
168 |
163 |
169 ;; Set in ~/.emacs.d/.emacs-auth: |
164 ;; Following variables are loaded by (load my-lisp-auth t) from init.el: |
170 ;; (setq user-full-name "Oleksandr Gavenko") |
165 ;; user-full-name user-mail-address user-nick user-home-page |
171 ;; (setq user-mail-address "gavenkoa@gmail.com") |
|
172 ;; (setq user-nick "gavenkoa") |
|
173 ;; (setq user-home-page "http://gavenkoa.users.sf.net") |
|
174 ;; (setq user-home-page "http://defun.work/") |
|
175 |
166 |
176 (defvar user-nick (user-login-name) |
167 (defvar user-nick (user-login-name) |
177 "My nick name.") |
168 "My nick name.") |
178 ;; auto-insert and copyright package use this to insert copyright owner. Gnus |
169 ;; auto-insert and copyright package use this to insert copyright owner. Gnus |
179 ;; uses this for Organization header. |
170 ;; uses this for Organization header. |
1954 (when (featurep 'company) |
1945 (when (featurep 'company) |
1955 (add-hook 'org-mode-hook #'my-company-text-setup)) |
1946 (add-hook 'org-mode-hook #'my-company-text-setup)) |
1956 (add-hook 'org-mode-hook #'mypasshide-mode) |
1947 (add-hook 'org-mode-hook #'mypasshide-mode) |
1957 |
1948 |
1958 (defun my-org-archive-location (path) |
1949 (defun my-org-archive-location (path) |
1959 "For given PATH make path to archive. Currently add undescore |
1950 "For given PATH makes path for archive. Currently adds |
1960 before file extention. If file name doesn't match |
1951 undescore before file extention. If file name doesn't match |
1961 `org-agenda-file-regexp' or have no extention return `nil'." |
1952 `org-agenda-file-regexp' or have no extention return `nil'." |
1962 (if (and (file-name-extension path) |
1953 (if (and (file-name-extension path) |
1963 (string-match org-agenda-file-regexp (file-name-nondirectory path))) |
1954 (string-match org-agenda-file-regexp (file-name-nondirectory path))) |
1964 (concat (file-name-sans-extension path) "_." (file-name-extension path)) |
1955 (concat (file-name-sans-extension path) "_." (file-name-extension path)) |
1965 nil)) |
1956 nil)) |