Browse Source

Added transparency commands, got rid of extra org link copy function

master
macoymadson@gmail.com 3 years ago
parent
commit
57c11880cf
  1. 5
      Emacs/core-settings.el
  2. 13
      Emacs/org-customizations.el
  3. 15
      Emacs/visual-late.el

5
Emacs/core-settings.el

@ -177,11 +177,6 @@
(interactive)
(simpleclip-set-contents buffer-file-name)
)
(defun macoy-org-copy-file-line-link-to-clipboard ()
(interactive)
(simpleclip-set-contents (format "[[file:%s::%d][" buffer-file-name (line-number-at-pos)))
)
)
;; Open file in explorer

13
Emacs/org-customizations.el

@ -1,9 +1,14 @@
(when (require 'simpleclip)
(defun macoy-create-copy-org-link-from-point (link-text)
"Create a link from the file and line at point and copy it to the clipboard"
(interactive "sLink text: ")
(simpleclip-set-contents (format "[[%s::%d][%s]]" buffer-file-name (line-number-at-pos) link-text))
;; (defun macoy-org-create-copy-link-from-point (link-text)
;; "Create a link from the file and line at point and copy it to the clipboard"
;; (interactive "sLink text: ")
;; (simpleclip-set-contents (format "[[%s::%d][%s]]" buffer-file-name (line-number-at-pos) link-text))
;; )
(defun macoy-org-copy-file-line-link-to-clipboard ()
(interactive)
(simpleclip-set-contents (format "[[file:%s::%d][" buffer-file-name (line-number-at-pos)))
)
)

15
Emacs/visual-late.el

@ -8,7 +8,20 @@
;; Whole-window transparency
;; The first number is transparency while active
;; The second number is transparency while inactive
(set-frame-parameter (selected-frame) 'alpha '(82 70))
(defun macoy-high-transparency ()
(interactive)
(set-frame-parameter (selected-frame) 'alpha '(80 70)))
(defun macoy-normal-transparency ()
(interactive)
(set-frame-parameter (selected-frame) 'alpha '(85 70)))
(defun macoy-low-transparency ()
(interactive)
(set-frame-parameter (selected-frame) 'alpha '(95 85)))
(defun macoy-no-transparency ()
(interactive)
(set-frame-parameter (selected-frame) 'alpha '(100 100)))
(macoy-normal-transparency)
;; Add a slight border to give us some breathing room on the edges
(set-frame-parameter (selected-frame) 'internal-border-width 5)

Loading…
Cancel
Save