Yamaoka's Page

Emacs 関連

1文字なら通常のisearch，2文字以上ならmigemoでisearchする

(defun my-toggle-migemo-isearch-enable ()
  (cond
    ((eq (length isearch-string) 0) 'ignore)
    ((< (length isearch-string) migemo-isearch-min-length) (setq migemo-isearch-enable-p nil))
    ((eq (length isearch-string) migemo-isearch-min-length) (setq migemo-isearch-enable-p t))
   ))

(isearch-update-post-hook . my-toggle-migemo-isearch-enable)

Org-mode の表でセル内のテキストを切り取る

(defun org-table-kill-cell ()
  (interactive)
  (when (org-at-table-p)
    (kill-new
     (string-trim (substring-no-properties
                   (org-table-get-field (org-table-current-column) "")))))
  )

(define-key org-mode-map (kbd "C-c w") 'org-table-kill-cell)