Skip to content

Commit

Permalink
Add: New choice of org-ellipses
Browse files Browse the repository at this point in the history
  • Loading branch information
Musa Al-hassy committed May 18, 2024
1 parent 634cd7f commit 73e2702
Show file tree
Hide file tree
Showing 4 changed files with 32 additions and 30 deletions.
4 changes: 3 additions & 1 deletion .aspell.en.pws
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
personal_ws-1.1 en 376
personal_ws-1.1 en 378
ACSII
AST
ASTs
Expand Down Expand Up @@ -64,6 +64,7 @@ Modularity
Monoid
Monoids
Monotonicity
Montather
Muawiyah
Multimethod
Multimethods
Expand Down Expand Up @@ -223,6 +224,7 @@ incentivizes
incrementing
indiscernibles
indistinguishability
infallibles
infimum
init
initializers
Expand Down
25 changes: 15 additions & 10 deletions init.el
Original file line number Diff line number Diff line change
Expand Up @@ -81,16 +81,16 @@
:config
;; Always have it on
(global-undo-tree-mode)

;; Each node in the undo tree should have a timestamp.
(setq undo-tree-visualizer-timestamps t)

;; Show a diff window displaying changes between undo nodes.
(setq undo-tree-visualizer-diff t)

;; Prevent undo tree files from polluting your git repo
(setq undo-tree-history-directory-alist '(("." . "~/.emacs.d/undo"))))

;; Execute (undo-tree-visualize) then navigate along the tree to witness
;; changes being made to your file live!

Expand Down Expand Up @@ -301,13 +301,18 @@ installs of pacakges that are not in our `my/installed-packages' listing.
:config (require 'inform))

(use-package emacs
:defer nil
:ensure org-contrib
:config (require 'ox-extra)
(ox-extras-activate '(ignore-headlines)))
:defer nil
:ensure org-contrib
:config (require 'ox-extra)
)

;; Replace the content marker, “⋯”, with a nice unicode arrow.
(setq org-ellipsis "")
(setq org-ellipsis "")
;; Other candidates:
;; (setq org-ellipsis " 📖")
;; (setq org-ellipsis " ◦◦◦")
;; (setq org-ellipsis " ⟨🫣⟩")
;; (setq org-ellipsis " ⟨👀⟩")

;; Fold all source blocks on startup.
(setq org-hide-block-startup t)
Expand Down Expand Up @@ -791,7 +796,7 @@ visit all blocks with such a name."
;; [[file:init.org::*Emojis][Emojis:2]]
;; Get all unicode emojis to appear within Emacs
;; See also: https://emacs.stackexchange.com/questions/5689/force-a-single-font-for-all-unicode-glyphs?rq=1
(unless noninteractive (set-fontset-font t nil "Apple Color Emoji"))
;; (unless noninteractive (set-fontset-font t nil "Apple Color Emoji"))
;; Emojis:2 ends here

;; [[file:init.org::*Prettify inline source code][Prettify inline source code:1]]
Expand Down
21 changes: 14 additions & 7 deletions init.org
Original file line number Diff line number Diff line change
Expand Up @@ -1968,7 +1968,14 @@ contributions from the [[https://code.orgmode.org/bzg/org-mode/src/master/contri

#+begin_src emacs-lisp :tangle init.el
;; Replace the content marker, “⋯”, with a nice unicode arrow.
(setq org-ellipsis " ⤵")
(setq org-ellipsis " ⮛")
;; Other candidates:
;; (setq org-ellipsis " 📖")
;; (setq org-ellipsis " ◦◦◦")
;; (setq org-ellipsis " ⟨🫣⟩")
;; (setq org-ellipsis " ⟨👀⟩")
;; (setq org-ellipsis " ⤵")


;; Fold all source blocks on startup.
(setq org-hide-block-startup t)
Expand Down Expand Up @@ -3363,7 +3370,7 @@ Where my local use contains ~#+MACRO: remark @@latex: \fbox{\textbf{Comment: $1
:END:

#+NAME: my-emoji-templates
#+begin_src emacs-lisp :tangle no :wrap "src org :tangle ~/.emacs.d/yankpad.org" :exports code :results replace drawer
#+begin_src emacs-lisp :tangle nil :wrap "src org :tangle ~/.emacs.d/yankpad.org" :exports code :results replace drawer
;;
;; https://emojipedia.org/people/
(cl-loop for (emoji name description)
Expand Down Expand Up @@ -3500,12 +3507,12 @@ Where my local use contains ~#+MACRO: remark @@latex: \fbox{\textbf{Comment: $1
#+begin_src emacs-lisp
;; Get all unicode emojis to appear within Emacs
;; See also: https://emacs.stackexchange.com/questions/5689/force-a-single-font-for-all-unicode-glyphs?rq=1
(unless noninteractive (set-fontset-font t nil "Apple Color Emoji"))
;; (unless noninteractive (set-fontset-font t nil "Apple Color Emoji"))
#+end_src

#+begin_src org :tangle "~/.emacs.d/yankpad.org" :noweb yes :exports none
<<my-emoji-templates()>>
#+end_src
##
## #+begin_src org :tangle "~/.emacs.d/yankpad.org" :noweb yes :exports none
## <<my-emoji-templates()>>
## #+end_src
##
***   =my_⋯= Templates to obtain User Information
:PROPERTIES:
Expand Down
12 changes: 0 additions & 12 deletions yankpad.org
Original file line number Diff line number Diff line change
Expand Up @@ -29,11 +29,6 @@ $0
$0
#+end_src

** s_plantuml: src for plantuml
#+begin_src plantuml
$0
#+end_src

** s_emacs-lisp: src for emacs-lisp
#+begin_src emacs-lisp
$0
Expand Down Expand Up @@ -105,8 +100,6 @@ src_org[:exports code]{$1} $0
src_agda2[:exports code]{$1} $0
** is_any: inline source for any
src_any[:exports code]{$1} $0
** is_plantuml: inline source for plantuml
src_plantuml[:exports code]{$1} $0
** is_emacs-lisp: inline source for emacs-lisp
src_emacs-lisp[:exports code]{$1} $0
** is_shell: inline source for shell
Expand Down Expand Up @@ -148,11 +141,6 @@ $0
$0
#+end_example

** e_plantuml: example for plantuml
#+begin_example plantuml
$0
#+end_example

** e_emacs-lisp: example for emacs-lisp
#+begin_example emacs-lisp
$0
Expand Down

0 comments on commit 73e2702

Please sign in to comment.