Table of Contents

1. init.el

1.1. Add debug feature

(setq debug-on-error t)

2. customer-post.org

2.1. Require file

2.1.1. Website

;;; init-site.el --- Exports org to site. -*- lexical-binding: t; -*-
                  ;;; Commentary:
                  ;;; Code:

                  (use-package htmlize
                  :ensure t
                  ;; :config
                  ;; (setq htmlize-output-type 'font)

                  "Settings of `org-export'."
                  (setq org-export-in-background t
                  ;; Hide html built-in style and script.
                  org-html-htmlize-output-type 'inline-css
                  org-html-head-include-default-style nil
                  org-html-head-include-scripts nil

                  (eval-after-load 'ox-html
                  (setq user-full-name "YF Lin"))

                  ;;(use-package ox-publish
                  ;;  :config
                  (setq org-publish-project-alist
                  ;; ; Sources and destinations for files.
                  :base-directory "~/site/org/" ;; local dir
                  :publishing-directory "~/site/public/" ;; :publishing-directory "/ssh:jack@"
                  ;; :preparation-function
                  ;; :complete-function
                  :base-extension "org"
                  ;; :exclude "PrivatePage.org"     ;; regexp
                  ;; :include
                  :recursive t

                  ;; ; Publishing action
                  :publishing-function org-html-publish-to-html

                  ;; ; Generic properties
                  :headline-levels 6    ;; org-export-headline-levels
                  :language "en"        ;; org-export-default-language
                  :section-numbers nil  ;; org-export-with-section-numbers
                  :with-planning t      ;; org-export-with-planning
                  :with-priority t      ;; org-export-with-priority ;
                  ;;  :with-tags not-in-toc ;; org-export-with-tags
                  :with-toc t           ;; org-export-with-toc

                  :html-doctype "html5" ;; org-html-doctype
                  ;;  :html-metadata-timestamp-format "%Y-%m-%d" ;; org-html-metadata-timestamp-format
                  :html-head-include-default-style nil ;; org-html-head-include-default-style
                  :html-head-include-scripts nil ;; org-html-head-include-scripts
                  "<link rel=\"shortcut icon\" href=\"themes/assets/xx.png\" type=\"image/x-icon\" />
                  <link rel=\"stylesheet\" href=\"themes/style.css\" type=\"text/css\"  />
                  <script type=\"module\" src=\"themes/main.js\" defer></script>" ;; org-html-head
                  :html-checkbox-type unicode  ;; org-html-checkbox-type
                  ;; :html-indent t               ;; org-html-indent
                  ;; :html-link-home "index.html"	;; org-html-link-home
                  ;; :html-link-up "uUP"          ;; org-html-link-up
                  :html-validation-link "<a href=\"http://www.thethingsengine.org/\">ThingsEngine</a>"	;; org-html-validation-link

                  ;; static assets
                  :base-directory "~/site/"
                  :base-extension "js"
                  :publishing-directory "~/site/public/"
                  :recursive nil
                  :publishing-function org-publish-attachment
                  :base-directory "~/site/images/"
                  :base-extension any
                  :publishing-directory "~/site/public/images/"
                  :recursive t
                  :publishing-function org-publish-attachment
                  :base-directory "~/site/themes/"
                  :base-extension any
                  :publishing-directory "~/site/public/themes/"
                  :recursive t
                  :publishing-function org-publish-attachment

                  ("website" :components ("orgfiles" "confs" "images" "themes"))
                  ("statics" :components ("confs" "images" "themes"))

                  (defun save-and-publish-website()
                  "Save all buffers and publish."
                  (when (yes-or-no-p "Really save and publish current project?")
                  (save-some-buffers t)
                  (org-publish-project "website" t)
                  (message "Site published done.")))

                  (defun save-and-publish-statics ()
                  "Just copy statics like js, css, and image file .etc."
                  (org-publish-project "statics" t)
                  (message "Copy statics done."))

                  (defun save-and-publish-file ()
                  "Save current buffer and publish."
                  (save-buffer t)
                  (org-publish-current-file t))

                  (defun delete-org-and-html ()
                  "Delete current org and the relative html when it exists."
                  (when (yes-or-no-p "Really delete current org and the relative html?")

                  (let ((fileurl (concat "~/site/public/" (file-name-base (buffer-name)) ".html")))
                  (if (file-exists-p fileurl)
                  (delete-file fileurl))
                  (delete-file (buffer-file-name))
                  (message "Delete org and the relative html done."))))

                  (defun just-delete-relative-html ()
                  "Just delete the relative html when it exists."
                  (when (yes-or-no-p "Really delete the relative html?")

                  (let ((fileurl (concat "~/site/public/" (file-name-base (buffer-name)) ".html")))
                  (if (file-exists-p fileurl)
                  (delete-file fileurl)
                  (message "Delete the relative html done.")
                  (message "None relative html.")))))

                  (define-minor-mode auto-save-and-publish-file-mode
                  "Toggle auto save and publish current file."
                  :global nil
                  :lighter ""
                  (if auto-save-and-publish-file-mode
                  ;; When the mode is enabled
                  (add-hook 'after-save-hook #'save-and-publish-file :append :local))
                  ;; When the mode is disabled
                  (remove-hook 'after-save-hook #'save-and-publish-file :local)))

                  ;;(use-package auto-save-and-publish-file-mode
                  ;;:hook (org-mode))

                  (add-hook 'org-mode-hook #'auto-save-and-publish-file-mode)

                  (use-package simple-httpd
                  :ensure t
                  (setq httpd-root "~/site/public"))

                  (defun preview-current-buffer-in-browser ()
                  "Open current buffer as html."
                  (let ((fileurl (concat "" (file-name-base (buffer-name)) ".html")))
                  (unless (httpd-running-p) (httpd-start))
                  (browse-url fileurl)))

                  (provide 'init-site)
                  ;;; init-site.el ends here

2.1.2. Add Require

(require 'init-site)
                  (require 'sound-wav)

2.2. Addtional Package

2.2.1. Centaur Tab

(use-package centaur-tabs
                  :ensure t
                  (setq centaur-tabs-style "bar"
                  centaur-tabs-height 22
                  centaur-tabs-set-icons t
                  centaur-tabs-plain-icons t
                  centaur-tabs-gray-out-icons t
                  centaur-tabs-set-close-button t
                  centaur-tabs-set-modified-marker t
                  centaur-tabs-show-navigation-buttons t
                  centaur-tabs-set-bar 'left
                  centaur-tabs-cycle-scope 'tabs
                  x-underline-at-descent-line nil)
                  ;; (setq centaur-tabs-gray-out-icons 'buffer)
                  ;; (centaur-tabs-enable-buffer-reordering)
                  ;; (setq centaur-tabs-adjust-buffer-order t)
                  (centaur-tabs-mode 1)
                  (setq uniquify-separator "/")
                  (setq uniquify-buffer-name-style 'forward)
                  (defun centaur-tabs-buffer-groups ()
                  "`centaur-tabs-buffer-groups' control buffers' group rules.
                  Group centaur-tabs with mode if buffer is derived from `eshell-mode' `emacs-lisp-mode' `dired-mode' `org-mode' `magit-mode'.
                  All buffer name start with * will group to \"Emacs\".
                  Other buffer group by `centaur-tabs-get-group-name' with project name."
                  (and (string= "*xwidget" (substring (buffer-name) 0 8))
                  (not (string= "*xwidget-log*" (buffer-name)))))
                  ((or (string-equal "*" (substring (buffer-name) 0 1))
                  (memq major-mode '(magit-process-mode
                  ((derived-mode-p 'prog-mode)
                  ((derived-mode-p 'dired-mode)
                  ((memq major-mode '(helpful-mode
                  ((memq major-mode '(org-mode
                  (centaur-tabs-get-group-name (current-buffer))))))
                  (dashboard-mode . centaur-tabs-local-mode)
                  (term-mode . centaur-tabs-local-mode)
                  (calendar-mode . centaur-tabs-local-mode)
                  (org-agenda-mode . centaur-tabs-local-mode)
                  (helpful-mode . centaur-tabs-local-mode)
                  ("C-c b" . centaur-tabs-backward)
                  ("C-c n" . centaur-tabs-forward)
                  ("C-c m" . centaur-tabs-forward-group)
                  ("C-c v" . centaur-tabs-backward-group))

2.2.2. insert screenshots

Mojave has a new screenshot capability you get with SHIFT-COMMAND-5. After typing SHIFT-COMMAND-5, select OPTIONS, then select "save to desktop" and then the Dropbox saving funtionality. Clipboard

(use-package org-download
                  :after org
                  :defer nil
                  (org-download-method 'directory)
                  (org-download-image-dir "images")
                  (org-download-heading-lvl nil)
                  (org-download-timestamp "%Y%m%d-%H%M%S_")
                  (org-image-actual-width 300)
                  (org-download-screenshot-method "/usr/local/bin/pngpaste %s")
                  ("C-s-y" . org-download-screenshot)
                  (require 'org-download))

2.3. Key Binding

2.3.1. Org-capture

(global-set-key (kbd "s-1")
  1. Org-caputure template
    (setq org-capture-templates
                          '(("a" "Appointment" entry (file+headline  "~/org/GTD/appointment.org" "Appointments")
                          "* TODO %?\n:PROPERTIES:\n\n:END:\nDEADLINE: %^T \n %i\n")
                          ("n" "Note" entry (file+headline "~/org/GTD/notes.org" "Notes")
                          "* Note %?\n%T")
                          ("l" "Link" entry (file+headline "~/org/GTD/links.org" "Links")
                          "* %? %^L %^g \n%T" :prepend t)
                          ("b" "Blog idea" entry (file+headline "~/org/GTD/i.org" "Blog Topics:")
                          "* %?\n%T" :prepend t)
                          ("t" "To Do Item" entry (file+headline "~/org/GTD/task.org" "To Do Items")
                          "* %?\n%T" :prepend t)
                          ("j" "Journal" entry (file+datetree "~/org/GTD/journal.org")
                          "* %?\nEntered on %U\n  %i\n  %a")
                          ("s" "Screencast" entry (file "~/org/GTD/screencastnotes.org")
                          "* %?\n%i\n")))

2.4. TE-fun

2.4.1. Number to Binary

(defun TE-number-to-bin-string (number)
                  (require 'calculator)
                  (let ((calculator-output-radix 'bin)
                  (calculator-radix-grouping-mode nil))
                  (calculator-number-to-string number)))

2.5. Latex

  (load "auctex.el" nil t t)
                ;;(load "preview-latex.el" nil t t)
                (setq TeX-auto-save t)
                (setq TeX-parse-self t)
                (setq-default TeX-master nil)

                (require 'reftex)
                (add-hook 'LaTeX-mode-hook 'turn-on-reftex)
                (setq reftex-plug-into-AUCTeX t)
                (setq reftex-enable-partial-scans t)
                (setq reftex-save-parse-info t)
                (setq reftex-use-multiple-selection-buffers t)
                (setq reftex-toc-split-windows-horizontally t) ;;*toc*buffer on left。
                (setq reftex-toc-split-windows-fraction 0.2)  ;;*toc*buffer ratio。
                (autoload 'reftex-mode "reftex" "RefTeX Minor Mode" t)
                (autoload 'turn-on-reftex "reftex" "RefTeX Minor Mode" nil)
                (autoload 'reftex-citation "reftex-cite" "Make citation" nil)  
                (autoload 'reftex-index-phrase-mode "reftex-index" "Phrase mode" t)

                (add-hook 'LaTeX-mode-hook 'turn-on-cdlatex)
                (autoload 'cdlatex-mode "cdlatex" "CDLaTeX Mode" t)
                (autoload 'turn-on-cdlatex "cdlatex" "CDLaTeX Mode" nil)

                ;;;;;;;;;;;;;;;;;;;;;;;;;;;LaTex-mode settings;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                (add-hook 'LaTeX-mode-hook (lambda ()
                ;(require 'init-auto-complete-settings)
                ;(require 'init-yasnippet-settings)
                (TeX-fold-mode 1)
                (auto-fill-mode 1)

                ;;;;;;;;;;;;;;;; flyspell settings
                (flyspell-mode 1)
                (setq flyspell-sort-corrections nil)
                (setq flyspell-doublon-as-error-flag nil)

                (turn-on-auto-fill)              ;;LaTeX mode,turn off auto fold
                (linum-mode 1)
                ;;(auto-complete-mode 1)
                (latex-math-mode 1)
                (outline-minor-mode 1)            

                (setq TeX-show-compilation nil)   ;;NOT display compilation windows
                (setq TeX-global-PDF-mode t       ;;PDF mode enable, not plain
                TeX-engine 'default)  ;;use xelatex default
                (setq TeX-clean-confirm nil)
                (setq TeX-save-query nil)

                (setq font-latex-fontify-script t)
                (define-key LaTeX-mode-map (kbd "TAB") 'TeX-complete-symbol)
                (setq TeX-electric-escape t)      ;; press \ then, jump to mini-buffer to input commands
                ;(setq TeX-view-program-list '(("Evince" "evince %o"))) ;;
                ; (setq TeX-view-program-selection '((output-pdf "Evince")))
                ;(add-to-list 'TeX-command-list '("XeLaTeX" "%`xelatex%(mode)%' %t" TeX-run-TeX nil t))
                ;(setq TeX-command-default "XeLaTeX")
                (setq TeX-fold-env-spec-list (quote (("[comment]" ("comment")) ("[figure]" ("figure")) ("[table]" ("table"))("[itemize]"("itemize"))("[enumerate]"("enumerate"))("[description]"("description"))("[overpic]"("overpic"))("[tabularx]"("tabularx"))("[code]"("code"))("[shell]"("shell")))))

                (define-key LaTeX-mode-map (kbd "C-c C-p") 'reftex-parse-all)

                ;;;;;;deeper directory;;;;;;;;;;;;;
                ;(setq reftex-section-levels
                ;     '(("part" . 0) ("chapter" . 1) ("section" . 2) ("subsection" . 3)
                ;       ("frametitle" . 4) ("subsubsection" . 4) ("paragraph" . 5)
                ;       ("subparagraph" . 6) ("addchap" . -1) ("addsec" . -2)))

                (setq LaTeX-section-hook


Date: 2020-10-05 Mon 00:00

Author: YF Lin

Created: 2023-02-24 Fri 10:00