;; -*- 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."))