Как настроить отступ в режиме org?

этот вопрос на самом деле возникает, потому что мне нравится использовать немоноширинные шрифты (Sabon, Minion, Garamond и т. д.). Это вызывает проблему при использовании org-indent-mode, поскольку текст под заголовками теперь не выравнивается по заголовкам. Пример:

Шрифт Грузия. Теперь, если я перейду на консоль

Я думаю, что проблема заключается в том, что в немонокальных шрифтах «пробел» и «*» не занимают одно и то же место. Хотя я не знаю, как это решить. Я искал в Интернете и не мог найти учебник, чтобы точно настроить отступы самостоятельно. Я пытался прочитать org-indent.el, но мне еще далеко до понимания. Помощь очень ценится!

Одно из решений состоит в том, org-indent-stringsчтобы использовать символы звездочки вместо пробелов в качестве отступа. Это означает, что ширина отступа всегда будет правильной, даже при использовании пропорционального шрифта. Хитрость заключается в том, чтобы установить цвет переднего плана отступа таким же, как цвет фона, чтобы звезды стали невидимыми.

Мы можем достичь этого с помощью следующего кода, который рекомендует функцию org-indent-initialize:

(require 'cl)
(defun org-indent-use-stars-for-strings ()
  "Initialize the indentation strings with stars instead of spaces."
  (setq org-indent-strings (make-vector (1+ org-indent-max) nil))
  (aset org-indent-strings 0 nil)
  (loop for i from 1 to org-indent-max do
    (aset org-indent-strings i
          (org-add-props
          (concat (make-string (1- i) ?*) ; <- THIS IS THE ONLY CHANGE
              (char-to-string org-indent-boundary-char))
          nil 'face 'org-indent))))

(advice-add 'org-indent-initialize :after #'org-indent-use-stars-for-strings)
(set-face-foreground 'org-indent "white")

Результат выглядит так для меня на Mac OS X с использованием emacs -Qи (set-face-font 'default :family "Gill Sans"):

Отрицательный ответ очень хорош, но у меня это не сработало. Я в настоящее время на Emacs 24.4 и org 8.2.4, и совет org-indent-initializeне сделал ничего. Я должен был переопределить функцию с измененным отступом, и это сработало. Возможно, когда я обновлюсь до Emacs 24.5 и org 8.3, совет будет работать.

Но мне также пришлось внести несколько других корректировок, потому что я использую шрифты с переменной шириной разного размера для разных уровней заголовка, что означает, что заголовки уровня 1 *не совпадают с шириной заголовка уровня 2, и так далее.

Так что я также должен был сделать это:

1. Установите грани org-hide(используются для отступа строк заголовка) и org-indent(используются для отступа строк, не являющихся заголовками), чтобы убедиться, что они используют один и тот же шрифт и одинаковый размер.
2. Установить переменную org-indent-boundary-characterдля *вместо значения по умолчанию (пробел). Это символ, который вставляется после символов отступа, но перед содержимым. Я не уверен, является ли изменение это необходимостью, но это, кажется, помогает последовательности. Это может зависеть от используемого вами шрифта, размеров и т. Д.

Выполнение этих вещей в дополнение к внесению изменений org-indent-initializeв устаревшую версию, по-видимому, сделало это. Я получаю буфер, похожий на этот:

Вы можете видеть, что при снижении уровня заголовка отступ не совпадает с текстом заголовка. Я думаю, что это из-за использования меньших шрифтов для заголовков более низкого уровня, и я не думаю, что есть простой способ это исправить. Может быть возможно сделать что-то с текстовыми свойствами, такими как line-prefixи wrap-prefix, потому что они могут быть установлены на изображения и специальные символы, но это, вероятно, будет сложно и медленно. Если вы используете одинаковый размер шрифта для всех уровней заголовка, это, вероятно, не будет проблемой.

Во всяком случае, это, вероятно, достаточно хорошо. :)

PS Как и просили, вот мои org-levelлица. Они скопированы с custom-set-faces, но если вы не используете, customizeвы можете установить их за ее пределами.

 '(org-level-1 ((t (:inherit variable-pitch :foreground "#cb4b16" :weight bold :height 1.3))))
 '(org-level-2 ((t (:inherit variable-pitch :foreground "#859900" :weight bold :height 1.2))))
 '(org-level-3 ((t (:inherit variable-pitch :foreground "#268bd2" :weight bold :height 1.15))))
 '(org-level-4 ((t (:inherit variable-pitch :foreground "#b58900" :weight bold :height 1.1))))
 '(org-level-5 ((t (:inherit variable-pitch :foreground "#2aa198" :weight bold))))
 '(org-level-6 ((t (:inherit variable-pitch :foreground "#6c71c4" :weight bold))))
 '(org-level-7 ((t (:inherit variable-pitch :foreground "#d33682" :weight bold))))
 '(org-level-8 ((t (:inherit variable-pitch :foreground "#dc322f" :weight bold))))

Каким-то образом я не мог заставить другие ответы работать для моей установки, но самое быстрое и простое исправление, которое сработало для меня, было:

`M-x customize-face org-hide`

Затем просто измените Font Familyатрибут на ваш моноширинный шрифт (в моем случае, Iosevka).

И это буквально все, что вам нужно сделать , поскольку org-indent(лицо для отступа в плане) автоматически наследуется от org-hide(лицо, используемое для скрытия ведущих звезд в заголовках)

Гораздо более простое решение: в режиме org нажмите M-:и запустите

(font-lock-add-keywords 
 nil 
 '(("^[[:space:]*]+" 0 '(face (:family "Ubuntu Mono")) append))
 'append)

Вам может понадобиться M-x font-lock-fontify-bufferпосле этого. Это решение просто заставляет ведущих персонажей (пробелы и звезды) использовать моноширинный шрифт.

Кроме того, вы захотите заменить «Ubuntu Mono» моноширинным шрифтом на ваш выбор,