Jekyll은 Markdown으로 글을 써서 HTML을 생성하는 콘텐트 가공하는 프로세스를 가지고 있다. 이게 마음에 안 든다. 내 First-class 마크업 언어는 Org-mode 이기 때문이다. Org-mode로 블로그 포스트를 쓸 방법을 연구했다.
Jekyll Converters를 사용하면 된다. org 확장자를 가진 파일일 때, html 로 변환하는 Converter를 추가하면 Org-mode로 글을 쓸 수 있다.
module Jekyll
# Convert org-mode files.
require 'org-ruby'
class OrgConverter < Converter
safe true
def setup
# No-op
end
def matches(ext)
ext =~ /org$/i
end
def output_ext(ext)
".html"
end
def convert(content)
setup
Orgmode::Parser.new(content).to_html
end
end
end
위와 같은 컨버터를 만들어서 _plugins 디렉터리에 만들면 사이트 생성 파이프라인에서 실행한다. wallyqs/org-ruby - github.com 라이브러리를 사용했다.
별도 컨버터를 만들어서 html로 변환하니 테마가 지원하는 기능을 활용하지 못한다. minimal mistakes 테마에서 지원하는 TOC 기능을 사용하지 못한다. org-ruby는 소스 블럭에 pre 태그를 사용하는데 테마에서는 code 태그를 사용해야 예쁘게 보여준다. 하나하나 고쳐나가기보다는 미래를 위해 org-ruby 라이브러리를 사용한 컨버터를 사용하지 않기로 했다.
방법을 바꿔서 org 문서를 md로 export 하기로 했다. md로 원하는 대로만 export하면 여기서부터는 Jekyll 사이트 생성 파이프라인에 수정 없이 태울 수 있다.
다행히 같은 고민을 한 사람이 있다. peterewills/ox-jekyll-lite - github.com 라이브러리를 찾았다.
#+begin_src elisp :tangle packages.el
(package! example
:recipe (:host github :repo "peterewills/ox-jekyll-lite"))
#+end_src
#+begin_src elisp
(require 'ox-jekyll-lite)
#+end_src
Doom Emacs 설정에 패키지 사용을 추가했다.
org-mode 문서의 Front matter(전문) 역할은 property가 한다. 하지만 나는 그동안 써 온 글이 너무나 많아서 컨버팅하지 않고 yaml 전문을 그대로 사용하게 세팅했다.
(setq org-jekyll-lite-include-yaml-front-matter nil)
포스팅 글에 아래와 같은 전문을 앞에 추가해서 해결했다.
#+begin_export html
---
title: "$title"
date: $now
categories: post
tags:
-
header:
image: /assets/$now-$title-00.jpg
---
#+end_export
이제 준비가 끝났으니 org 파일에서 Jekyll md로 익스포트하면 된다.
M-x org-export-dispatch j j
org 파일이 사이트 생성 결과물에 포함되지 않게 Jekyll _config.yml 파일 exclude 에 포함시킨다.
하나하나씩 언제 하냐. 디렉터리에 모든 org 파일을 찾아서 export하는 함수를 만들어서 실행했다.
(defvar my-org-bulk-export-jekyll--log-buffer-name "*My Org Bulk Jekyll Export Log*")
(defun my-org-bulk-export-jekyll ()
(interactive)
(let* ((posts-dir (my-org-bulk-export-jekyll-locate-posts-dir))
(org-files (directory-files-recursively posts-dir "\\.org$"))
(total (length org-files))
(counter 0))
(my-org-bulk-export-jekyll--log "Found %d .org files to export." total)
(dolist (file org-files)
(setq counter (1+ counter))
(my-org-bulk-export-jekyll--log "Exporting %d/%d: %s" counter total file)
(with-current-buffer (find-file-noselect file)
(let ((org-export-with-broken-links 'mark))
(org-export-to-file
'jekyll
(concat (file-name-sans-extension file) ".md")))))))
(defun my-org-bulk-export-jekyll-locate-posts-dir ()
"Locate the _posts directory at the root of the current Git repository, if any."
(let ((root (vc-git-root default-directory)))
(when root (concat root "_posts/"))))
(defun my-org-bulk-export-jekyll--log (format-string &rest args)
"Log a message to the dedicated export log buffer."
(with-current-buffer (get-buffer-create my-org-bulk-export-jekyll--log-buffer-name)
(let ((inhibit-read-only t)) ;; allow writing to read-only buffer
(goto-char (point-max))
(insert (apply #'format format-string args) "\n"))))
(provide 'my-org-bulk-export-jekyll)
컨버터를 내가 ownership을 가지고 수정할 마음이 없었다면 사용하면 안 된다. Jekyll 사이트 생성 파이프라인을 그대로 탈 수 있는 방법을 찾았어야 했다. 사제를 쓰니 마음에 드는 테마를 바꿀 때, 문제가 생겼다.
C-x C-s C-x C-c
당연히 다음 질문을 하게 된다. Emacs에서는 어떻게 할 수 있는가?
org-drill 설치패키지 매니저에 등록되어 있다. Use-package 패키지를 사용하면 쉽게 설치할 수 있다. Doom Emacs에서는 아래와 같이 설치할 수 있다.
(package! org-drill)
Org-mode의 tag를 사용한다. 구획 제목(heading)에 :drill 태그를 붙이면 된다.
대답을 한 번에 보여주는 타입
* Item :drill:
What is the capital city of Estonia?
** The Answer
Tallinn.
빈칸 메우는 클로즈(cloze) 방식
,* Item :drill:
The capital city of Estonia is [Tallinn].
이외에도 다양한 타입을 지원한다.
:drill 태그가 있는 문서에서 아래 명령을 실행하면 시작한다
M-x org-drill
메타 정보를 저장해야 한다. 언제 마지막으로 풀었는지 답은 맞췄는지와 같은 정보이다. 구획 제목에 붙는 속성(property)으로 저장한다.
:PROPERTIES:
:ID: bd0713e6-6c6a-4085-8001-6089edbad15d
:DRILL_LAST_INTERVAL: 3.86
:DRILL_REPEATS_SINCE_FAIL: 2
:DRILL_TOTAL_REPEATS: 1
:DRILL_FAILURE_COUNT: 0
:DRILL_AVERAGE_QUALITY: 3.0
:DRILL_EASE: 2.36
:DRILL_LAST_QUALITY: 3
:DRILL_LAST_REVIEWED: [Y-08-29 Fri 09:%]
:END:
Org-mode 컨벤션을 따르면 메타 정보를 담을 적당한 곳이 거저 생긴다.
역시나 간격 반복 학습 패키지를 Emacs에 추가할 수 있다. 사용법도 쉽고 설정도 이만하면 충분하다.
Emacs에서만 돌아가는 게 문제다. 간격 반복 학습은 데스크탑보다는 모바일에서 사용하고 싶다. 짬이 날 때 보기 좋기 때문이다. 그래서 org-drill 사용은 보류한다. 모바일 지원이 안 되기 때문이다.
Anki 앱처럼 모바일을 잘 지원하는 앱을 메인으로 사용하고 Emacs는 데이터를 동기화하는 보조적인 수단으로 쓰면 어떨까 고민하고 있다.
C-x C-s C-x C-c
]c, [c 키에 바인딩한다. ]c 키를 누르면 문서에서 #+begin_src 문자열을 찾는다.
(use-package! evil-org
(let-alist evil-org-movement-bindings
(map! :map evil-org-mode-map
:m "]c" #'org-babel-next-src-block
:m "[c" #'org-babel-previous-src-block)))
소스코드 블록뿐만 아니라 #+begin_example, #+begin_quote 이런 다른 블록들도 이동할 수 있는 키바인딩이 있으면 편할 것 같다. org-babel-next-src-block 코드를 살펴보니 org-next-block 함수를 호출한다.
(defun org-next-block (arg &optional backward block-regexp)
(interactive "p")
(let ((re (or block-regexp "^[ \t]*#\\+BEGIN"))
(case-fold-search t)
(search-fn (if backward #'re-search-backward #'re-search-forward))
기본값인 #+begin 을 그대로 사용하면 된다. ]b, [b 키에 바인딩했다. 버퍼 이동 함수에 바인딩된 키인데 사용하지 않아서 뺏었다.
(after! org
(map! :map org-mode-map
:n "]b" #'org-next-block
:n "[b" #'org-previous-block))
조금 더 이동이 민첩해졌다.
C-x C-s C-x C-c
f/F, t/T 키를 사용할 수 있다. 예를 들어 fa 키를 누르면 현재 라인에 있는 a 문자를 찾는다. Evil-snipe 패키지를 사용하면 현재 라인뿐만 아니라 전체 문서로 검색 범위를 넓힐 수도 있고 연속된 두 글자를 검색할 수도 있다. 이걸 한글로도 넓혀보고 싶었다. evil-snipe-aliases 변수가 있어서 손쉽게 한글도 지원할 수 있었다.
두벌식 초성만 지원한다. 모음과 종성은 뺐다. 구현상의 이유다. 정규식을 사용해서 검색할 건데, 초성처럼 범위로 나타낼 수 없기 때문이다. 좀 더 생각해 보니 이렇게 정밀도를 높이면 오히려 검색에 방해가 되겠다 싶다. 구현하기 어려워서 빨리 포기해서 다행이다.
fr 키를 누르면 r 도 찾고 ㄱ, 가-낗 까지 찾게 한다. 한글로 찾기 영문으로 찾기 이런 모드는 따로 안 나누고 같이 찾게 했다.
evil-snipe-aliases 변수 설정evil-snipe 패키지에 key를 정규식으로 매핑할 수 있는 변수가 있다. 기대를 안 하고 Advice를 생각으로 소스 코드를 보다가 발견했다.
(add-hook 'c++-mode-hook
(lambda ()
(make-local-variable 'evil-snipe-aliases)
(push '(?\[ \"[[{(]\") evil-snipe-aliases)))"
주석을 보니 C++ 모드에서 f[ 키를 누르면 [ 문자뿐만 아니라 (, { 문자도 찾도록 정의할 수 있다. 이렇게 써도 편하겠다. 이 변수를 쓰면 한글 검색을 할 수 있다.
(setq evil-snipe-aliases '(
(?r "[rㄱ가-낗]")
(?R "[Rㄲ까-낗]")
(?s "[sㄴ나-닣]")
(?e "[eㄷ다-딯]")
(?E "[Eㄸ따-띻]")
(?f "[fㄹ라-맇]")
(?a "[aㅁ마-밓]")
(?q "[qㅂ바-빟]")
(?Q "[Qㅃ빠-삫]")
(?t "[tㅅ사-싷]")
(?T "[Tㅆ싸-앃]")
(?d "[dㅇ아-잏]")
(?w "[wㅈ자-짛]")
(?W "[Wㅉ짜-찧]")
(?c "[cㅊ차-칳]")
(?z "[zㅋ카-킿]")
(?x "[xㅌ타-팋]")
(?v "[vㅍ파-핗]")
(?g "[gㅎ하-힣]")
))
하나만 치니깐 나머지는 GitHub Copilot이 채워줬다. 친절하다
The 비행기는 quick 이륙 brown 준비를 fox 마쳤지만 jumped 갑자기 over 폭우가 the 쏟아졌다 lazy dog.
^
fT 키를 누르면 [Tㅆ싸-앃] 를 찾는다. 쏟 으로 이동한다.
The 비행기는 quick 이륙 brown 준비를 fox 마쳤지만 jumped 갑자기 over 폭우가 the 쏟아졌다 lazy dog.
^
Fc 키를 누르면 [cㅊ차-칳] 를 찾는다. 쳤 으로 이동한다.
The 비행기는 quick 이륙 brown 준비를 fox 마쳤지만 jumped 갑자기 over 폭우가 the 쏟아졌다 lazy dog.
^
; 키를 눌러 반복 찾기를 누르면 [cㅊ차-칳] 를 한 번 더 찾는다. c 로 이동한다.
The 비행기는 quick 이륙 brown 준비를 fox 마쳤지만 jumped 갑자기 over 폭우가 the 쏟아졌다 lazy dog.
^
잘 된다.
정말 Emacs에서 evil-mode를 쓴다면 evil-snipe 패키지를 안 쓸 이유가 없다.
한글 검색을 계속 미루다가 이제야 했다. f/t 모션 활용도가 훨씬 더 높아졌고 이동이 가벼워졌다.
C-x C-s C-x C-c
제공하는 기능은 다음과 같다. 현재 줄 찾기 후 확장. s, S 키로 연속된 두 문자 포함 찾기. x, X 키로 연속된 두 문자 앞까지 operator 모드에서 사용.
;, ,f/F, t/T 키로 현재 라인에서 문자를 찾을 수 있다. 찾고 난 뒤에는 ; 키로 앞으로 반복해서 찾고 , 키로 뒤로 반복해서 찾을 수 있다. 찾기와 반복 찾기 범위를 설정할 수 있다.
현재 줄에서 찾고 보이는 범위로 확장해서 반복 찾기를 하는 디폴트 값을 그대로 사용하고 있다. evil-snipe-scope 변수와 evil-snipe-repeat-scope 변수로 범위를 변경할 수 있다.
첫 번째 문장 제일 앞 문자에 커서가 있다.
The quick Brown fox jumps over the lazy dog.
^
The five boxing wizards jump quickly.
fu 키를 누른다.
The quick Brown fox jumps over the lazy dog.
^
The five boxing wizards jump quickly.
; 키를 누른다.
The quick Brown fox jumps over the lazy dog.
^
The five boxing wizards jump quickly.
한 번 더 ; 키를 누른다. vim 기본 패키지 상태에서는 line 단위로만 찾기 때문에 더 이상 커서 이동을 하지 않는다. 하지만 evil-snipe 패키지를 사용하기 때문에 범위를 확장해서 찾는다.
The quick Brown fox jumps over the lazy dog.
The five boxing wizards jump quickly.
^
F 는 반대로 찾는다. Fi
The quick Brown fox jumps over the lazy dog.
The five boxing wizards jump quickly.
^
t 는 입력한 문자 바로 이전으로 이동한다. T 는 뒤로 검색한다. 아래는 tu 를 입력한 결과다.
The quick Brown fox jumps over the lazy dog.
The five boxing wizards jump quickly.
^
찾는 글자 수와 관계없이 버퍼 대상으로 찾을 때, / 키를 눌렀다. 이제 범위를 확장할 수 있으니 f/F, t/T 키 활용도가 증가했다.
s/Ss/S 키를 누르면 키 입력을 추가로 두 개를 받는다. 문자 하나만 받는 f/F 키를 두 문자를 받게 한 기능이다. 아직까진 완전히 손에 익진 않았고 가끔 생각날 때마다 한 번씩 쓰기는 한다.
커서가 첫 번째 문장 제일 앞에 글자인 T 에 있을 때, sum 키를 누르면
The quick Brown fox jumps over the lazy dog.
^
The five boxing wizards jump quickly.
; 반복 찾기 키를 누르면
The quick Brown fox jumps over the lazy dog.
The five boxing wizards jump quickly.
^
S 는 반대로 이동한다.
x/Xd 키를 누르면 이후에 지울 범위를 받는다. operator mode로 변환되는 것이다. x/X 키는 연속된 두 글자 이전까지를 범위로 잡는다.
The quick Brown fox jumps over the lazy dog.
^
The five boxing wizards jump quickly.
위처럼 r 문자에 커서가 있을 때, dxov 키를 누르면
The quick Bover the lazy dog.
^
The five boxing wizards jump quickly.
처음으로 찾은 ov 문자 앞까지 지운다. X 키는 x 키와 반대로 커서 이전을 찾는다.
찾기 범위 변수인 evil-snipe-scope 와 반복 찾기 변수인 evil-snipe-repeat-scope 를 분리한 건 좋은 디자인 결정이다. 현재 줄에서 찾는 키 기능을 그대로 유지하면서 반복했을 때만 범위를 넓히는 확장을 할 수 있게 해준다. f/F, t/T 키를 눌렀을 때, 갑자기 먼 곳으로 이동해서 놀라는 걸 막아준다.
그러고 보니 반복 찾기가 현재 줄을 넘어가서 찾는데, evil 기능이겠거니 하면서 쓰고 있었다. 확실히 편하다. s/S, x/X 키가 유용하지만 아직은 손에 익지 않았다. 존재 자체를 매번 까먹게 된다. 흔한 글자를 찾을 때, 두 글자로 찾을 수 있는 s/S 키를 요긴하게 쓸 수 있다.
C-x C-s C-x C-c
현재 편집 영역의 절반을 아래로 스크롤 하는 C-d 키 동작이 이상하다. C-f 키가 한 페이지를 아래로 스크롤 한다면 C-d 키는 절반을 아래로 스크롤해야 한다. 하지만 어떨 때는 C-f 키를 누른 것처럼 한 페이지 정도를 아래로 스크롤 한다.
왜 이런 걸까?
C-d 키에 바인딩한 evil-scroll-down 함수 주요 코드왜 화면 절반보다 더 많은 라인을 스크롤 하는지 함수를 살펴보자. C-d 키를 누르면 evil-scroll-down 함수를 실행한다.
(evil-define-command evil-scroll-down (count)
(interactive "<c>")
;; ...
(setq count (evil--get-scroll-count count))
;; ...
)
evil--get-scroll-count 함수가 얼마만큼 스크롤 할 것인지를 계산하는 함수다.
(defun evil--get-scroll-count (count)
"Given a user-supplied COUNT, return scroll count."
(cl-flet ((posint (x) (and (natnump x) (< 0 x) x)))
(or (posint count)
(posint evil-scroll-count)
(/ (window-body-height) 2))))
window-body-height 함수 리턴 값을 2로 나눈다. 즉 window-body-height 함수 리턴 값이 현재 화면에 보이는 총 라인 수다. 그걸 반으로 나눠서 화면 절반만 스크롤할 값을 구한다.
그렇다면 이상하다. Emacs 기본 라이브러리 함수인 window-body-height 가 이상한 값을 리턴할리는 없잖아?
window-body-height 값이 왜 이런가?M-: 키에 바인딩된 eval-expression 함수를 호출한 후 (window-body-height) 를 입력해서 지금 포커스가 있는 위도의 body height를 구해봤다.
찾았다. window-body-height 함수 리턴 값이 더 크게 나오고 있다. 49줄을 표시하고 있는 윈도에서 실행하니 63이 나온다. 이걸 반으로 나누고 있으니 기대와 다르게 절반 이상이 스크롤된 것이다. 한편으로는 이 함수를 엄청나게 많이 쓰고 있을 텐데, 어떻게 고칠지 막막하다.
’bug#54894: 28.1; window-body-height returns wrong result if line-spacing’ 글에서 원인을 찾았다. line-spacing 값이 nil이 아닐 때, window-body-height 함수 리턴 값이 텍스트 줄 수와 다르다는 버그 리포트다.
줄 간격이 있으면 읽기 편해서 아래처럼 줄 간격을 세팅해서 쓰고 있다.
(set-default 'line-spacing 0.2)
해결 방법이 있을 것 같아서 버그 리포트 글을 읽어보았다.
It does handle that correctly. Like with most (if not all) functions that return window and frame dimensions, the return value is in unit of a canonical line height for the frame. It doesn’t count the actual text lines. So it isn’t affected by stuff like line-spacing, the actual height of the lines due to changes in fonts, etc.
bug#54894: 28.1; window-body-height returns wrong result if line-spacing - li…
리턴 값이 실제 텍스트 라인 수가 아니라 프레임의 표준 줄 높이다(unit of a canonical line height for the frame). 읽어도 이해가 안 되는 답변이다. 프레임의 표준 줄 높이는 또 뭐람. 잘 모르겠지만 확실한 건 window-body-height 함수 구현이 절대 바뀔 리가 없다는 것이다.
line-spacing 값이 nil이 아닐 때, 텍스트 라인 수를 구하는 방법을 찾아야 한다. 혹은 line-spacing 값을 nil로 설정하고 눈이 적응하는 방법도 있다.
evil--get-scroll-count 함수 override로 해결?line-spacing 값이 nil이 아닐 때, 텍스트 라인 수를 구하는 방법은 없는 걸까? 픽셀로 연산하는 방법이 있다.
(/ (window-body-height nil t) (default-line-height))
window-body-height 함수 두 번째 인자로 t 넘겨서 pixel 단위로 현재 포커스가 있는 윈도 크기를 구한다. 거기에 default-line-height 로 line-spacing 값이 반영된 줄 높이를 나눠서 구한다.
이제 적용할 차례다. Advice를 사용해 evil--get-scroll-count 함수를 덮어쓰자.
(after! evil
(defun my-evil-get-scroll-count (count)
"Given a user-supplied COUNT, return scroll count."
(let ((line-count (/ (window-body-height nil t)
(default-line-height))))
(cl-flet ((posint (x) (and (natnump x) (< 0 x) x)))
(or (posint count)
(posint evil-scroll-count)
(/ line-count 2)))))
(advice-add 'evil--get-scroll-count :override #'my-evil-get-scroll-count))
line-spacing 널 지키려고 내가 이렇게까지 한다.
하지만
line-spacing 을 nil 로 설정하다line-spacing 을 고려해 텍스트 줄 수를 구하게 evil--get-scroll-count 함수를 덮어써서 한동안 신나 하며 잘 썼다. 스크롤 관련 동작들이 잘 동작하다가 한 번씩 튀는 현상을 경험했다. 예전처럼 그런 현상들이 나오는 것이다. line-spacing 이 nil 일 때 잘 동작하는 어떤 함수를 어디에선가 사용하고 있다!
발견할 때마다 고쳐가며 line-spacing 값을 지켜야 할까? 아니면 line-spacing 을 nil 값으로 설정하고 이 문제에서 자유로워질 것인가?
line-spacing 을 nil 로 설정했다. 처음엔 눈에 안 들어오지만 금새 눈이 적응한다. 눈을 적응시키고 line-spacing 문제에서 자유로워지기로 했다. 지켜주지 못해 미안해.
C-x C-s C-x C-c
Not all windows are created equally. Some are less important. Some I want gone once they have served their purpose, like code output or a help buffer. Others I want to stick around, like a scratch buffer or org-capture popup.
More than that, popups ought to be the second class citizens of my editor; spawned off to the side, discarded with the push of a button (e.g. ESC or C-g), and easily restored if I want to see them again. Of course, this system should clean up after itself and kill off buffers I mark as transient.
모든 창이 똑같이 생성되는 것은 아닙니다. 일부는 덜 중요합니다. 코드 출력이나 도움말 버퍼처럼 용도가 끝나면 사라졌으면 하는 창도 있습니다. 스크래치 버퍼나 org-capture 팝업처럼 계속 유지하고 싶은 팝업도 있습니다.
그보다 팝업은 에디터에서 2등 시민이 되어야 하며, 버튼(예: ESC 또는 C-g)을 누르면 사라지고, 다시 보고 싶을 때 쉽게 복원할 수 있어야 합니다. 물론 이 시스템은 스스로 정리하고 사용자가 일시적인 것으로 표시한 버퍼를 없애야 합니다.
:ui popup - Doom Emacs v21.12 documentation - docs.doomemacs.org
어디서 본 적이 있는 것 같은데, doom emacs에서는 직접 구현한 모듈(module)이 있다.
+all
- Enable fallback rules to ensure all temporary/special buffers (whose name begins with a space or asterix) are treated as popups.
+defaults
- Enable reasonable default popup rules for a variety of buffers.
빈칸이나 * 문자로 시작하는 건 모두 임시 버퍼 취급하는 +all 옵션과 적당히 타협하는 +default 옵션이 있다.
(doom! :ui
(popup +defaults) ; tame sudden yet inevitable temporary windows
)
init.el 파일에 설정한다. 적당한 옵션으로 세팅해서 사용하고 있다.
주로 사용하는 키는 다음과 같다. 팝업창을 일반 창으로 승격시키는 기능도 있다. 자신이 쓰기 위해 만든 모듈은 이렇게 기능이 디테일하다.
C-g - 닫기C-x p - +popup/other - 열린 팝업창으로 이동SPC ~ - +popup/toggle - 팝업창을 여닫는다C-~ - +popup/raise - 팝업창을 일반 창으로 승격popup 모듈 확장성이 좋다. 패키지에 팝업으로 띄웠으면 좋겠다고 하는 window에 적용해서 쓰고 있다.
ElDoc 패키지에서 사용하는 window에 팝업을 적용했다.
(after! eldoc
;; =M-x eldoc-doc-buffer= 함수 호출로 표시하는 buffer 크기 조절
(set-popup-rule! "^\\*eldoc for" :size 0.2 :vslot -1))
Web Archive 링크를 만드는 패키지에도 결과를 보여줄 때, 팝업으로 보여준다.
(when (functionp #'set-popup-rule!)
(set-popup-rule! my/web-archive-result-buffer-name :size 0.25 :ttl nil :vslot -1))
size, ttl, vslot 등 옵션도 많다.
맞다. 모든 윈도우가 같은 취급을 받으면 안 된다. 어떤 윈도우는 계속 한자리를 차지하고 있어야 하지만 어떤 윈도우는 잠시 보였다가 손쉽게 사라져야 한다. 만약 Doom Emacs를 떠나 다른 곳으로 간다면 그리울 패키지다. 비슷한 기능을 가진 걸 찾거나 Doom Emacs를 벗어나더라도 사용할 수 있게 분리하는 작업을 시작할 것 같다.
C-x C-s C-x C-c
같은 방식은 아니지만 GitLab issue와 merge request를 org-mode 문서에 링크로 추가할 수 있는 코드를 짰었다. Org-cliplink를 알기 전이라 함수를 호출하고 issue나 merge request 번호를 입력해야 한다. GitLab merge request 링크도 Org-cliplink로 인터페이스를 통일하는 작업을 했다.
GitLab URL structure에 - 구획 문자(delimiter)를 사용한다. Slack 봇인 Slab을 만들 때, 구획 문자가 추가된 GitLab 버전을 반영하느라 투덜거렸던 기억이 난다. 그때는 group 정보를 따로 빼낼 필요가 없어서 몰랐다. group, subgroup, project 정보와 page 정보를 파싱하는데 - 구획 문자가 있으니 편하다.
(defun my/gitlab--extract-groups-and-mr-id (url end_point)
(let* ((url-without-endpoint (replace-regexp-in-string (concat "^" end_point) "" url))
(url_parts (split-string url-without-endpoint "/-/"))
(mr-id (my/gitlab--merge-request-id (cadr url_parts))))
(list :groups (my/gitlab-remove-leading-slash (car url_parts)) :mr-id mr-id)))
(defun my/gitlab--merge-request-id (url)
(save-match-data
(if (string-match "/?merge_requests/\\([0-9]+\\)" url)
(string-to-number (match-string 1 url)))))
(defun my/gitlab-remove-leading-slash (url)
(replace-regexp-in-string "^/" "" url))
(my/gitlab--extract-groups-and-mr-id "https://gitlab.com/abc/def/ghi/-/merge_requests/123" "https://gitlab.com")
(:groups "abc/def/ghi" :mr-id 123)
group 정보와 merge request id는 https://gitlab.com/api/v4/projects/abc%2Fdef%2Fghi/merge_requests/123 처럼 호출 API URL을 만들 때, 사용한다.
my/gitlab-merge-request-title 함수함수 인자로 URL을 받는다. 설정으로 추가한 host 정보와 일치하면 Auth-source에 저장한 private token을 사용해서 GitLab API를 호출한다. 만약 실패하면 nil 을 리턴한다.
(defun my/gitlab-merge-request-title (url)
(when-let (content (my/gitlab-merge-request url))
(concat (plist-get content :reference) " " (plist-get content :title))))
(defun my/gitlab-merge-request (url)
(when-let* ((host (my/gitlab--find-host url my/gitlab-hosts))
(request-url (my/gitlab--merge-request-url url host))
(header (my/gitlab--auth (plist-get host :url)))
(content (my/gitlab--get-merge-request request-url header)))
content))
full reference를 사용해서 gitlab-org/gitlab!23066 Move merge request routes under /-/ scope 와 같이 title을 구성한다.
Org-cliplink를 확장하려고 추가한 hook 변수에 my/gitlab-merge-request-title 함수를 추가한다.
(setq my/org-cliplink-custom-retrieve-title-hook
(lambda (url)
(or (my/org-cliplink-confluence-title url)
(my/jira-title url)
(my/gitlab-merge-request-title url))))
my/gitlab-insert-heading-content’Jira 이슈 정보를 Emacs Org-mode 문서에 삽입’ 글에서 짠 함수와 비슷하게 키를 바인딩할 함수를 짰다. 클립보드에 URL이 있으면 그걸 사용하고 없으면 URL 입력 프롬프트를 띄우게 했다.
(defun my/gitlab-insert-heading-content ()
(interactive)
(let* ((url (my/gitlab--url-clipboard-or-prompt))
(content (my/gitlab-merge-request url))
(reference (plist-get content :reference))
(title (plist-get content :title)))
(org-insert-heading)
(insert (format "%s %s [/]" reference title))
(org-update-statistics-cookies nil)
(org-set-property "URL" url)))
(defun my/gitlab--url-clipboard-or-prompt ()
(let ((clipboard-content (gui-get-selection 'CLIPBOARD)))
(if (and clipboard-content (string-match-p "^http" clipboard-content))
clipboard-content
(read-string "Enter URL: "))))
Doom Emacs 함수를 사용해서 SPC m z g 키로 바인딩했다.
(map! :map org-mode-map
:localleader
(:prefix ("z" . "insert")
"g" #'my/gitlab-insert-heading-content))
Org-cliplink와 SPC m z 키바인딩으로 org-mode 문서 링크 추가 인터페이스를 통일했다. 어떤 URL이던지 clipboard에 복사하고 SPC m l c 키를 누르면 링크가 추가되니 편하다. org-mode 문서 heading을 추가하는 건 SPC m z 키바인딩으로 통일해서 이제 손에도 익숙하다. 전체 코드는 ohyecloudy/dotfiles/commit/94028ad00ac 커밋으로 볼 수 있다.
C-x C-s C-x C-c
Doom Emacs에서는 init.el 파일에 주석 처리가 되어 있는 treemacs 를 찾아서 주석을 풀고 세팅을 해주면 된다.
(doom! :ui
(treemacs +lsp))
Doom Emacs를 사용하지 않는다면 Alexander-Miller/treemacs 페이지를 보고 설치하면 된다. MELPA에 등록되어 있으니 use-package로 쉽게 설치할 수 있다.
키바인딩은 Doom Emacs 기준이다.
M-x treemacs (SPC o p) - 파일 탐색기를 연다/닫는다M-x treemacs-find-file (SPC o P) - 파일 탐색기를 열고 현재 파일에 포커스를 둔다M-x treemacs-common-helpful-hydra (?) - 도움말M-x treemacs-advanced-helpful-hydra (C-?) - 부가 기능 도움말SPC o p/P 로 파일 탐색기를 열고 ? 키를 누르면 사용할 수 있는 도움말을 볼 수 있다. abo-abo/hydra 패키지를 사용해 보여주는 도움말이 보기 좋다. 기본 도움말과 부가 기능 도움말을 분리한 것도 좋은 결정이다. 많은 키바인딩을 한 번에 보여줘서 가시성을 떨어뜨리는 걸 막는다.
다음은 열기 메뉴다.
M-x treemacs-RET-action (RET) (l) - 열기M-x treemacs-visit-node-vertical-split (o s) - vertical splitM-x treemacs-visit-node-horizontal-split (o v) - horizontal splitRET 키로 열어도 되고 l 키로 열어도 된다. l 키는 Vim 이동 키인 hjkl 에서 따온 것 같다. 사이드바는 왼쪽에 있고 오른쪽에 해당 파일을 여니깐 l 키가 말이 된다.
treemacs에 포커스를 유지하고 파일을 빠르게 살펴볼 수 있는 모드를 지원한다.
M-x treemacs-peek-mode (P) - Peek 모드 toggleM-x treemacs-next-line-other-window (M-J) - Peek 모드에서 윈도우 스크롤M-x treemacs-previous-line-other-window (M-K) - Peek 모드에서 윈도우 스크롤If you’ve previously used a different explorer like NeoTree or NerdTree - or an earlier version of treemacs for that matter - you are probably used to a display system wherein you see exactly a single file tree whose exact root you can arbitrarily change. This system makes it difficult to work on and switch between multiple projects. Treemacs used to (and still does) remedy that limitation by making every treemacs buffer unique to its frame, but it has now been redesigned to be able to display multiple file trees - projects - at once.
NeoTree나 NerdTree 같은 다른 탐색기나 이전 버전의 Treemacs를 사용해 본 적이 있다면, 정확한 루트를 임의로 변경할 수 있는 단일 파일 트리가 표시되는 디스플레이 시스템에 익숙하실 것입니다. 이 시스템에서는 여러 프로젝트에서 작업하고 전환하기가 어렵습니다. Treemacs는 예전에는 모든 Treemacs 버퍼를 해당 프레임에 고유하게 만들어 이러한 한계를 해결했지만, 이제는 여러 파일 트리(프로젝트)를 한 번에 표시할 수 있도록 재설계되었습니다.
Visual Studio를 다뤄봤다면 여러 프로젝트를 담는 솔루션(solution) 파일이 연상될지도 모르겠다. 단일 프로젝트가 아니라 여러 프로젝트를 워크스페이스로 묶어서 한 번에 보여줄 수 있게 설계했다.
M-x treemacs-edit-workspaces 함수를 호출하면 Org-mode로 된 버퍼를 볼 수 있다.
#+TITLE: Edit Treemacs Workspaces & Projects
# Call ~treemacs-finish-edit~ or press ~C-c C-c~ when done.
# [[https://github.com/Alexander-Miller/treemacs#conveniently-editing-your-projects-and-workspaces][Click here for detailed documentation.]]
# To cancel you can simply kill this buffer.
* Perspective main
** project_a
- path :: ~/src/project_a
** COMMENT project_b
- path :: ~/src/project_b
Org-mode 마크업 언어로 세팅을 편집하는 건 처음이다. Emacs에서는 지원이 확실하니 좋은 경험이었다. Org-mode에서 지원하는 코멘트 기능으로 워크스페이스에 안 보여줄 프로젝트를 세팅하는 게 재미있었다.
Projectile을 사용한다면 M-x treemacs-projectile 함수로 projectile로 등록한 프로젝트를 워크스페이스에 손쉽게 추가할 수 있다.
Doom Emacs에서 follow-mode 를 꺼놔서 나는 켜는 추가 세팅을 했다. 현재 버퍼에 있는 파일을 treemacs 버퍼에서 포커싱하는 기능이다.
(after! treemacs
(treemacs-follow-mode t))
현재 내게 Emacs는 Elixir 메인 프로그래밍 에디터이다. Elixir 프로그래밍을 할 때 SPC o p 키를 눌러 treemacs 사이드바를 열어 놓고 시작한다. 여러 프로젝트를 한 번에 보여주고 전환을 쉽게 할 수 있는 워크스페이스는 아직 잘 활용하고 있진 않다.
C-x C-s C-x C-c
한글과 영문을 오가며 써보니 헷갈린다. 편집 모드로 돌아가서 한글을 입력하려고 입력기를 변경하면 이전 한글 입력기 선택을 기억하고 있어 영문이 입력되고 이런 일이 빈번하게 발생했다. 모드 라인(mode line)에 표시된 입력기 상태를 보면 되긴 하지만 편집에 집중하고 있다 보면 눈에 잘 안 들어온다.
(after! evil
(add-hook 'evil-insert-state-exit-hook
(lambda ()
(setq evil-input-method nil)))
)
그래서 편집 모드를 나가면 무조건 영문으로 돌리는 세팅을 했다. jjpark78/my_doom_emacs_config 세팅을 참고했다. 다시 약간의 적응이 필요하겠지만 하나로 고정되어 있으니 익숙해지면 더 편해지겠지?
C-x C-s C-x C-c