Add origami cube to support folding
This commit is contained in:
parent
1ec652e6f4
commit
4656df14e9
|
@ -36,6 +36,20 @@
|
||||||
"Enable the support for server mode in FG42." t)
|
"Enable the support for server mode in FG42." t)
|
||||||
|
|
||||||
|
|
||||||
|
(defcube fg42/folding-cube
|
||||||
|
"This cube install ~origami~ which let you collapse and expand regions of text.
|
||||||
|
|
||||||
|
For more info checkout [[https://github.com/gregsexton/origami.el]]"
|
||||||
|
(:title "Folding cube"
|
||||||
|
:flag folding
|
||||||
|
:flag-default t)
|
||||||
|
(fpkg/use origami
|
||||||
|
:bind
|
||||||
|
(("C-c TAB" . origami-toggle-node))
|
||||||
|
:config
|
||||||
|
(global-origami-mode t)))
|
||||||
|
|
||||||
|
|
||||||
(defcube fg42/pinentry-cube
|
(defcube fg42/pinentry-cube
|
||||||
"Pinentry cube with setup the =pinentry= program to be used within FG42."
|
"Pinentry cube with setup the =pinentry= program to be used within FG42."
|
||||||
(:title "Pinentry cube"
|
(:title "Pinentry cube"
|
||||||
|
@ -127,11 +141,12 @@
|
||||||
"Fira Mono"))
|
"Fira Mono"))
|
||||||
(size (or (plist-get fg42/font-cube-params :font-size)
|
(size (or (plist-get fg42/font-cube-params :font-size)
|
||||||
12)))
|
12)))
|
||||||
;; Sets the default font to fg42 font
|
(when font
|
||||||
(add-to-list 'default-frame-alist
|
;; Sets the default font to fg42 font
|
||||||
(cons 'font (format "%s-%d" font size)))
|
(add-to-list 'default-frame-alist
|
||||||
|
(cons 'font (format "%s-%d" font size)))
|
||||||
|
|
||||||
(set-face-attribute 'default t :font font)))
|
(set-face-attribute 'default t :font font))))
|
||||||
|
|
||||||
|
|
||||||
;TODO: Replace this cube with a `theme-cube'
|
;TODO: Replace this cube with a `theme-cube'
|
||||||
|
@ -250,6 +265,7 @@
|
||||||
(fg42/modeline-cube)
|
(fg42/modeline-cube)
|
||||||
(fg42/setup-modeline-format mline))
|
(fg42/setup-modeline-format mline))
|
||||||
|
|
||||||
|
(fg42/folding-cube)
|
||||||
(fg42/font-cube)
|
(fg42/font-cube)
|
||||||
(fg42/pinentry-cube)
|
(fg42/pinentry-cube)
|
||||||
(fg42/exec-path-cube)
|
(fg42/exec-path-cube)
|
||||||
|
|
Loading…
Reference in New Issue