about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--emacs.el36
1 files changed, 24 insertions, 12 deletions
diff --git a/emacs.el b/emacs.el index c6d361b..d810323 100644 --- a/emacs.el +++ b/emacs.el
@@ -1,6 +1,8 @@
1;;; ~/.emacs -*- mode: emacs-lisp; lexical-binding: t; -*- 1;;; ~/.emacs -*- mode: emacs-lisp; lexical-binding: t; -*-
2;; by Case Duckworth <acdw@acdw.net> 2;; by Case Duckworth <acdw@acdw.net>
3;; Bankruptcy 10: "Annoyance" 3;; Bankruptcy 10: "Annoyance"
4;;
5;; License: GPLv3+
4 6
5;;; Commentary: 7;;; Commentary:
6 8
@@ -11,9 +13,12 @@
11 13
12;;; Code: 14;;; Code:
13 15
16(defun sync/ (&optional file-name)
17 (expand-file-name (or file-name "") "~/sync"))
18
14(add-hook 'after-init-hook 19(add-hook 'after-init-hook
15 (lambda () 20 (lambda ()
16 (load (locate-user-emacs-file "private")))) 21 (load (sync/ "private"))))
17 22
18;;; Definitions: 23;;; Definitions:
19 24
@@ -40,7 +45,13 @@
40 font-lock-misc-punctuation-face 45 font-lock-misc-punctuation-face
41 font-lock-bracket-face)) 46 font-lock-bracket-face))
42 (face-spec-set face '((t :foreground unspecified 47 (face-spec-set face '((t :foreground unspecified
43 :background unspecified))))) 48 :background unspecified))))
49 (dolist (face '(font-lock-comment-face
50 font-lock-doc-face
51 font-lock-string-face))
52 (face-spec-set face '((t :foreground unspecified
53 :background unspecified
54 :slant italic)))))
44 55
45(defun electric-pair-local-mode-disable () 56(defun electric-pair-local-mode-disable ()
46 "Disable `electric-pair-mode', locally." 57 "Disable `electric-pair-mode', locally."
@@ -427,11 +438,12 @@ If LOCALP is a string, add that directory to the `load-path'."
427 438
428(tool-bar-mode -1) 439(tool-bar-mode -1)
429 440
430(setopt modus-themes2-bold-constructs nil 441(setopt modus-themes-bold-constructs nil
431 modus-themes-italic-constructs t 442 modus-themes-italic-constructs t
432 modus-themes-variable-pitch-ui t) 443 modus-themes-variable-pitch-ui t)
433 444
434(add-hook 'modus-themes-after-load-theme-hook #'reset-faces) 445(add-hook 'modus-themes-after-load-theme-hook #'reset-faces)
446(add-hook 'after-init-hook #'reset-faces)
435 447
436(load-theme 'modus-vivendi :no-confirm :no-enable) 448(load-theme 'modus-vivendi :no-confirm :no-enable)
437(load-theme 'modus-operandi :no-confirm) 449(load-theme 'modus-operandi :no-confirm)
@@ -922,16 +934,16 @@ ORG-EXPORT-ARGS are passed to `org-export-to-buffer'."
922 934
923;; Wayland version.. TODO: make it work for both 935;; Wayland version.. TODO: make it work for both
924;; (defun org-to-html-to-clipboard (&rest org-export-args) 936;; (defun org-to-html-to-clipboard (&rest org-export-args)
925 ;; "Export current org buffer to HTML, then copy it to the clipboard. 937;; "Export current org buffer to HTML, then copy it to the clipboard.
926;; ORG-EXPORT-ARGS are passed to `org-export-to-file'." 938;; ORG-EXPORT-ARGS are passed to `org-export-to-file'."
927 ;; (let ((buf (generate-new-buffer "*org-html-clipboard*" t))) 939;; (let ((buf (generate-new-buffer "*org-html-clipboard*" t)))
928 ;; (apply #'org-export-to-buffer 'html buf org-export-args) 940;; (apply #'org-export-to-buffer 'html buf org-export-args)
929 ;; (with-current-buffer buf 941;; (with-current-buffer buf
930 ;; (call-process-region (point-min) (point-max) 942;; (call-process-region (point-min) (point-max)
931 ;; "wl-copy" nil nil nil 943;; "wl-copy" nil nil nil
932 ;; "-t" "text/html") 944;; "-t" "text/html")
933 ;; (kill-buffer-and-window)) 945;; (kill-buffer-and-window))
934 ;; (message "HTML copied to clipboard."))) 946;; (message "HTML copied to clipboard.")))
935 947
936(defun org-subtree-to-html-to-clipboard () 948(defun org-subtree-to-html-to-clipboard ()
937 "Export current subtree to HTML." 949 "Export current subtree to HTML."