Browse Source

Small mac changes and clipboard for region pb

Simon Watson 2 năm trước cách đây
mục cha
commit
d2c2dc5e97
3 tập tin đã thay đổi với 12 bổ sung3 xóa
  1. 1 1
      emacs/.emacs-all
  2. 6 1
      emacs/elisp/helpers.el
  3. 5 1
      emacs/mac-load/customs.el

+ 1 - 1
emacs/.emacs-all

@@ -319,7 +319,7 @@
       ;; Graphic Display
       (if (display-graphic-p)
 	  (progn
-	    (load-theme 'solarized-dark t)))))
+	    (load-theme 'solarized-light t)))))
 
 ;; Load for GUI Linux
 (if (eq system-type 'gnu/linux)

+ 6 - 1
emacs/elisp/helpers.el

@@ -35,7 +35,12 @@
 	     "curl -s -F \"file=@-\" -H \"expire:60min\" http://chate.io:669"
 	     standard-output))
 	  0 -1))
-  (message *last-pb-url*))
+  (message *last-pb-url*)
+  ;; There may be a more direct way to
+  ;; do this?
+  (with-temp-buffer
+    (insert *last-pb-url*)
+    (clipboard-kill-region (point-min) (point-max))))
 
 (defun display-pb (&optional url-arg)
   "Display either last pb url content, or passed URL.

+ 5 - 1
emacs/mac-load/customs.el

@@ -13,4 +13,8 @@
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
- '(default ((t (:family "Envy Code R" :foundry "nil" :slant normal :weight normal :height 141 :width normal)))))
+ '(default ((t (:family "Envy Code R" :foundry "nil" :slant normal :weight normal :height 141 :width normal))))
+ '(org-level-1 ((t (:inherit variable-pitch :foreground "#cb4b16" :height 1.0))))
+ '(org-level-2 ((t (:inherit variable-pitch :foreground "#859900" :height 1.0))))
+ '(org-level-3 ((t (:inherit variable-pitch :foreground "#268bd2" :height 1.0))))
+ '(org-level-4 ((t (:inherit variable-pitch :foreground "#b58900" :height 1.0)))))