.emacs

;; Added by Package.el.  This must come before configurations of
;; installed packages.  Don't delete this line.  If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
(package-initialize)

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(column-number-mode t)
 '(current-language-environment "UTF-8")
 '(cursor-type (quote box))
 '(custom-enabled-themes (quote (wombat)))
 '(global-display-line-numbers-mode t)
 '(markdown-command "/usr/bin/pandoc")
 '(mm-inline-large-images (quote resize))
 '(org-agenda-files
   (quote
    ("~/Общедоступные/Процесс/Обеспечение.org" "~/Общедоступные/Процесс/Механизатор.org" "~/Общедоступные/Процесс/Токарь.org")))
 '(org-display-remote-inline-images (quote download))
 '(org-startup-with-inline-images t)
 '(package-selected-packages (quote (auctex org markdown-mode)))
 '(scroll-bar-mode nil)
 '(send-mail-function (quote mailclient-send-it))
 '(show-paren-mode t)
 '(size-indication-mode t))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(default ((t (:family "Iosevka Slab" :foundry "BE5N" :slant normal :weight normal :height 112 :width normal)))))

;; Установка tab-ов
(defun my-insert-tab-char ()
  "Insert a tab char. (ASCII 4, \t)"
  (interactive)
  (insert "\t"))

(global-set-key (kbd "TAB") 'my-insert-tab-char)
;; make return key also do indent, globally
(electric-indent-mode 1)

;; Подключаем репозиторий elpa
(add-to-list 'package-archives
    '("org" . "https://orgmode.org/elpa/") t)

;; Подключаем репозиторий MELPA stable
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
;; Comment/uncomment this line to enable MELPA Stable if desired.  See `package-archive-priorities`
;; and `package-pinned-packages`. Most users will not need or want to do this.
;;(add-to-list 'package-archives '("melpa-stable" . "https://stable.melpa.org/packages/") t)
(package-initialize)

;; Меняю названия TODO
(setq org-todo-keywords
      '((sequence "ИСПОЛНИТЬ"
          "|"
          "ИСПОЛНЕНО"
          "ОТМЕНЕНО"
          "ОСТАНОВЛЕНО")))

;; Красим ключевые слова задач в разные цвета
(setq org-todo-keyword-faces
     '(
    ("ИСПОЛНИТЬ" :background "red1" :foreground "black" :weight bold :box (:line-width 2 :style released-button))
    ("ИСПОЛНЕНО" :background "green" :foreground "black" :weight bold :box (:line-width 2 :style released-button))
     ("ОТМЕНЕНО" :background "gray" :foreground "black" :weight bold :box (:line-width 2 :style released-button))
     ("ОСТАНОВЛЕНО" :background "blue" :foreground "black" :weight bold :box (:line-width 2 :style released-button))
    ))
;; По инструкции https://orgmode.org/manual/Closing-items.html#Closing-items
(setq org-log-done 'time)
(setq org-log-done 'note)

;; Исправляем сломавшиеся ссылки
(defun org-fix-links ()
  "Fix ill-formatted internal links.
E.g. replace [[*TODO Headline][headline]] by [[*Headline][headline]].
Go through the buffer and ask for the replacement."
  (interactive)
  (visible-mode 1)
  (save-excursion
    (goto-char (point-min))
    (let ((regexp (format "\\[\\[\\*%s\\s-+"
                          (regexp-opt org-todo-keywords-1 t))))
      (while (re-search-forward regexp nil t)
        (when (and (save-excursion
                     (goto-char (match-beginning 0))
                     (looking-at-p org-link-bracket-re))
                   (y-or-n-p "Fix link (remove TODO keyword)? "))
          (replace-match "[[*")))))
  (visible-mode -1))

;; Чиню ссылки по инструкции https://www.linux.org.ru/forum/general/16448988?cid=16449039
(defun string-empty-p (s)
(zerop (length s)))