34 lines
979 B
EmacsLisp
34 lines
979 B
EmacsLisp
;; -*- lexical-binding: t; -*-
|
|
(defun hgh/edit-init-file ()
|
|
(interactive)
|
|
(find-file user-init-file))
|
|
|
|
(defun hgh/load-init-file ()
|
|
(interactive)
|
|
(load-file user-init-file))
|
|
|
|
(defun hgh/duplicate-dwim ()
|
|
(interactive)
|
|
(duplicate-dwim)
|
|
(next-line))
|
|
|
|
(defun hgh/set-bar-cursor(&rest args)
|
|
(setq-local cursor-type 'bar))
|
|
|
|
(defun hgh/set-box-cursor(&rest args)
|
|
(setq-local cursor-type 'box))
|
|
|
|
(defun hgh/update-projects ()
|
|
(interactive)
|
|
(dolist (path '("/programming/projects/"
|
|
"/programming/projects/worktrees"
|
|
"/programming/thirdparty/"
|
|
"/programming/probe/"))
|
|
(let ((projects-root (concat (getenv "HOME") path)))
|
|
(make-directory projects-root t)
|
|
(dolist (dir (directory-files projects-root t "^[^.]"))
|
|
(when (file-directory-p dir)
|
|
(let ((pr (project--find-in-directory dir)))
|
|
(when pr (project-remember-project pr)))))))
|
|
(message "Project list updated."))
|