Emacs,git 常用技巧总结

;; Prettify UI
(use-package org-modern
  :after org
  :diminish
  ;; --- 新增的部分开始 ---
  :custom
  ;; 这里定义标题层级的图标。列表中的第一个符号对应一级标题，第二个对应二级，以此类推。
  ;; 我换成了一组兼容性更好的常用符号。
  (org-modern-star '("◉" "○" "◈" "◇" "✳" "✚" "✜"))
  ;; --- 新增的部分结束 ---
  :autoload global-org-modern-mode
  :init (global-org-modern-mode 1))

;; ;;自定义截图
(defun org-screenshot ()
  "Take a screenshot into a unique-named file in the current buffer file
        directory and insert a link to this file."
  (interactive)
  (setq filename
        (concat (make-temp-name "./images/") ".png"))
  (setq dirname
        "./images/"
        )
  (if (file-exists-p dirname)
      ()
    (make-directory dirname)
    )

  ;;(suspend-frame)
  (call-process-shell-command (concat "screencapture -s \"" filename "\""))
  (insert (concat "[[" filename "]]"))
  (org-display-inline-images)
  )

(global-set-key (kbd "C-c p") 'org-screenshot)

;; ;; Yasnippet 配置
(use-package yasnippet
  :ensure t
  :defer t
  :init
  :bind
  (:map yas-minor-mode-map
   ("C-c y" . yas-expand))
  :config
  (setq yas-snippet-dirs '("~/.emacs.d/snippets/"))
  (yas-reload-all))

;; ;; 更改光标为bar
(setq-default cursor-type 'bar) ;更改光标为bar

;; ;; 加载 ox-hugo
(use-package ox-hugo
  :after ox
  :ensure t)

;; ;; latex预览变大
(with-eval-after-load 'org
  (setq org-preview-latex-default-process 'dvipng)
  ;; (setq org-preview-latex-image-width 2.0)

  (setq org-format-latex-options
        (plist-put org-format-latex-options :scale 2.5))
)
;; ;;设置图片预览大用固定值
(setq org-image-actual-width 600)



;; ;;
;; 循环隐藏shell
(defvar my-egggump-shell-buffer "*EggGump-Shell*"
  "Buffer name for the EggGump shell.")

(defun my-toggle-shell-egggump ()
  "Toggle visibility of a shell in /Users/hubing/ExtraLearning/blog/EggGump."
  (interactive)
  (let ((buf (get-buffer my-egggump-shell-buffer)))
    ;; 如果 buffer 存在且窗口可见 → 隐藏窗口
    (if (and buf (get-buffer-window buf))
        (delete-window (get-buffer-window buf))

      ;; 否则 → 显示/创建 shell buffer
      (progn
        (unless buf
          (let ((default-directory "/Users/hubing/ExtraLearning/blog/EggGump/"))
            (shell my-egggump-shell-buffer)))
        (pop-to-buffer my-egggump-shell-buffer)))))

(global-set-key (kbd "<f4>") #'my-toggle-shell-egggump)

  ;; ;;使用snipeast 截图
    (defun org-snipaste ()
      "Take a screenshot into a unique-named file in the current buffer file
            directory and insert a link to this file."
      (interactive)
      (setq filename
            (concat (make-temp-name "./images/") ".png"))
      (setq dirname
            "./images/"
            )
      (if (file-exists-p dirname)
          ()
        (make-directory dirname)
        )

      ;;(suspend-frame)
      (call-process-shell-command
       (concat "/Applications/Snipaste.app/Contents/MacOS/Snipaste snip"))
      (insert (concat "[[" filename "]]"))
      (org-display-inline-images)
      )


    (global-set-key (kbd "C-c y") 'org-snipaste)

  ;; ;; 打开shell
;; ;; 按F4打开指定位置的shell
(defun my-open-shell-egggump ()
  "Open a shell in /Users/hubing/ExtraLearning/blog/EggGump."
  (interactive)
  (let ((default-directory "/Users/hubing/ExtraLearning/blog/EggGump/"))
    (shell)))

(global-set-key (kbd "<f4>") #'my-open-shell-egggump)