IMPORTANT NOTICE: Devheroes public code hosting will shut down at 1st of March 2023. Due to some difficulties, we have to shut down the instance. Since codeberg.org is pretty mature and welcoming, We highly recommend you to move your code there. Please be advised that on 1st of March, your data will be removed. Thanks for your time with us, and may the source be with you.

Browse Source

Add origami cube to support folding

ep8
Sameer Rahmani 8 months ago
parent
commit
4656df14e9
  1. 24
      core/cubes/editor.el

24
core/cubes/editor.el

@ -36,6 +36,20 @@ @@ -36,6 +36,20 @@
"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
"Pinentry cube with setup the =pinentry= program to be used within FG42."
(:title "Pinentry cube"
@ -127,11 +141,12 @@ @@ -127,11 +141,12 @@
"Fira Mono"))
(size (or (plist-get fg42/font-cube-params :font-size)
12)))
;; Sets the default font to fg42 font
(add-to-list 'default-frame-alist
(cons 'font (format "%s-%d" font size)))
(when font
;; Sets the default font to fg42 font
(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'
@ -250,6 +265,7 @@ @@ -250,6 +265,7 @@
(fg42/modeline-cube)
(fg42/setup-modeline-format mline))
(fg42/folding-cube)
(fg42/font-cube)
(fg42/pinentry-cube)
(fg42/exec-path-cube)

Loading…
Cancel
Save