Compare commits

..

9 Commits

6 changed files with 52 additions and 84 deletions

View File

@ -1,6 +1,6 @@
# Maintainer: Lucien Cartier-Tilet <lucien@phundrak.com> # Maintainer: Lucien Cartier-Tilet <lucien@phundrak.com>
pkgname=Wonderdraft pkgname=Wonderdraft
pkgver=1.1.6.1 pkgver=1.1.7.3
pkgrel=1 pkgrel=1
epoch= epoch=
pkgdesc="" pkgdesc=""
@ -19,7 +19,7 @@ options=(!strip docs !libtool !staticlibs emptydirs zipman purge !debug)
install= install=
changelog= changelog=
source=($pkgname-$pkgver-Linux64.zip) source=($pkgname-$pkgver-Linux64.zip)
sha512sums=('27b0a56c95efe99c2b3cadb10c4e70186591bef0793d58b1acff99f8dfc789806ae7821adcdfc10af1c46e4801a8fe753380913ea4aeb4fb8030fe7cf80ea090') sha512sums=('4eaff01dad549223265cca10c3f9bf9cdbee4542b6a4afbf513fd655a47238e2d757c36d8ed7ffe16a19879f6d41739ee1e722ebc120507cde3b39250ae22c9c')
noextract=() noextract=()
package() { package() {

View File

@ -61,7 +61,7 @@ if [[ $CLI == "YES" ]] ; then
else else
pkgname="emacs-phundrak-git" pkgname="emacs-phundrak-git"
fi fi
pkgver=29.0.50.158942 pkgver=29.0.50.159501
pkgrel=1 pkgrel=1
pkgdesc="GNU Emacs. Development master branch with Phundraks tweaks." pkgdesc="GNU Emacs. Development master branch with Phundraks tweaks."
arch=('x86_64') arch=('x86_64')

View File

@ -31,7 +31,7 @@ of said command running.
| ~pactl~ | ~load-module module-switch-on-connect~ | | | ~pactl~ | ~load-module module-switch-on-connect~ | |
| ~mpc~ | ~stop~ | no | | ~mpc~ | ~stop~ | no |
| ~xrdb~ | ~-merge "$XDG_CONFIG_HOME"/X11/Xresources~ | no | | ~xrdb~ | ~-merge "$XDG_CONFIG_HOME"/X11/Xresources~ | no |
| ~picom~ | ~--experimental-backends~ | yes | | ~picom~ | | yes |
| ~numlockx~ | ~on~ | yes | | ~numlockx~ | ~on~ | yes |
| ~xfce-polkit~ | | yes | | ~xfce-polkit~ | | yes |
| ~nm-applet~ | | yes | | ~nm-applet~ | | yes |
@ -70,7 +70,7 @@ of said command running.
"\n") "\n")
#+END_SRC #+END_SRC
#+RESULTS[aa4d3befb57ec44dc2a4d8dcd84fad5780c61186]: autostart-gen #+RESULTS[8c42a43989020c61050b2930ae60c81248c2dd44]: autostart-gen
#+begin_src bash :exports code #+begin_src bash :exports code
which pactl && pactl load-module module-switch-on-connect & which pactl && pactl load-module module-switch-on-connect &
which mpc && mpc stop & which mpc && mpc stop &
@ -78,7 +78,7 @@ which xrdb && xrdb -merge "$XDG_CONFIG_HOME"/X11/Xresources &
which picom && if pgrep -x picom ; then which picom && if pgrep -x picom ; then
echo picom already running echo picom already running
else else
picom --experimental-backends & picom &
disown disown
fi fi
which numlockx && if pgrep -x numlockx ; then which numlockx && if pgrep -x numlockx ; then

View File

@ -352,7 +352,8 @@ It is nicer to see a cursor cover the actual space of a character.
When text is ellipsed, I want the ellipsis marker to be a single When text is ellipsed, I want the ellipsis marker to be a single
character of three dots. Lets make it so: character of three dots. Lets make it so:
#+begin_src emacs-lisp #+begin_src emacs-lisp
(setq truncate-string-ellipsis "…") (with-eval-after-load 'mule-util
(setq truncate-string-ellipsis "…"))
#+end_src #+end_src
With Emacs 29.0.50 onwards, a new frame parameter exists: With Emacs 29.0.50 onwards, a new frame parameter exists:
@ -371,6 +372,7 @@ hidden. This is why I want the current date and time to be displayed,
in an ISO-8601 style, although not exactly ISO-8601 (this is the best in an ISO-8601 style, although not exactly ISO-8601 (this is the best
time format, fight me). time format, fight me).
#+begin_src emacs-lisp #+begin_src emacs-lisp
(require 'time)
(setq display-time-format "%Y-%m-%d %H:%M") (setq display-time-format "%Y-%m-%d %H:%M")
(display-time-mode 1) ; display time in modeline (display-time-mode 1) ; display time in modeline
#+end_src #+end_src
@ -518,7 +520,7 @@ This function allows the user to open all marked files from a dired
buffer as new Emacs buffers. buffer as new Emacs buffers.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun phundrak/open-marked-files (&optional files) (defun phundrak/open-marked-files (&optional files)
"Open all marked FILES in dired buffer as new Emacs buffers." "Open all marked FILES in Dired buffer as new Emacs buffers."
(interactive) (interactive)
(let* ((file-list (if files (let* ((file-list (if files
(list files) (list files)
@ -530,50 +532,6 @@ buffer as new Emacs buffers.
(file-list)))) (file-list))))
#+end_src #+end_src
*** ~xah/open-in-external-app~
:PROPERTIES:
:CUSTOM_ID: Custom-Elisp-Dired-functions-xah-open-in-external-appnm6kel6184j0
:END:
#+begin_src emacs-lisp
(defun xah/open-in-external-app (&optional file)
"Open FILE or dired marked FILE in external app.
The app is chosen from the users OS preference."
(interactive)
(let ((file-list (if file
(list file)
(if (equal major-mode "dired-mode")
(dired-get-marked-files)
(list (buffer-file-name)))))
(do-it-p (if (<= (length file-list) 5)
t
(y-or-n-p "Open more than 5 files? "))))
(when do-it-p
(mapc (lambda (file-path)
(let ((process-connection-type nil))
(start-process "" nil "xdg-open" file-path)))
file-list))))
#+end_src
*** ~xah/dired-sort~
:PROPERTIES:
:CUSTOM_ID: Custom-Elisp-Dired-functions-xah-dired-sort9fakel6184j0
:END:
#+begin_src emacs-lisp
(defun xah/dired-sort ()
"Sort dired dir listing in different ways.
Prompt for a choice."
(interactive)
(let (sort-by arg)
(setq sort-by (completing-read "Sort by:" '("name" "size" "date" "extension")))
(pcase sort-by
("name" (setq arg "-ahl --group-directories-first"))
("date" (setq arg "-ahl -t --group-directories-first"))
("size" (setq arg "-ahl -S --group-directories-first"))
("extension" (setq arg "ahlD -X --group-directories-first"))
(otherwise (error "Dired-sort: unknown option %s" otherwise)))
(dired-sort-other arg)))
#+end_src
** Switch between buffers ** Switch between buffers
:PROPERTIES: :PROPERTIES:
:CUSTOM_ID: Custom-Elisp-Switch-between-buffersp4ekel6184j0 :CUSTOM_ID: Custom-Elisp-Switch-between-buffersp4ekel6184j0
@ -3029,31 +2987,34 @@ enough for me.
:END: :END:
Iedit is a powerful text editing tool that can be used to refactor Iedit is a powerful text editing tool that can be used to refactor
code through the edition of multiple regions at once, be it in a code through the edition of multiple regions at once, be it in a
region or in a whole buffer. region or in a whole buffer. Since Im using evil, Ill also use a
#+begin_src emacs-lisp compatibility package that adds states for iedit.
(use-package iedit
:defer t
:straight (:build t)
:general
(phundrak/leader-key
:infix "r"
:packages 'iedit
"" '(:ignore t :which-key "refactor")
"i" #'iedit-mode))
#+end_src
Since Im using evil, Ill also use a compatibility package that adds
states for iedit.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package evil-iedit-state (use-package evil-iedit-state
:after iedit
:defer t :defer t
:straight (:build t) :straight (:build t)
:commands (evil-iedit-state evil-iedit-state/iedit-mode) :commands (evil-iedit-state evil-iedit-state/iedit-mode)
:init :init
(setq iedit-curent-symbol-default t (setq iedit-curent-symbol-default t
iedit-only-at-symbol-boundaries t iedit-only-at-symbol-boundaries t
iedit-toggle-key-default nil)) iedit-toggle-key-default nil)
:general
(phundrak/leader-key
:infix "r"
:packages '(iedit evil-iedit-state)
"" '(:ignore t :which-key "refactor")
"i" #'evil-iedit-state/iedit-mode)
(general-define-key
:keymaps 'evil-iedit-state-map
"c" nil
"s" nil
"J" nil
"S" #'iedit-expand-down-a-line
"T" #'iedit-expand-up-a-line
"h" #'evil-iedit-state/evil-change
"k" #'evil-iedit-state/evil-substitute
"K" #'evil-iedit-state/substitute
"q" #'evil-iedit-state/quit-iedit-mode))
#+end_src #+end_src
*** Parinfer *** Parinfer
@ -3618,9 +3579,8 @@ supported natively. I will describe them here.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package tramp (use-package tramp
:straight (tramp :type built-in :build t) :straight (tramp :type built-in :build t)
:init
<<tramp-add-yadm>>
:config :config
<<tramp-add-yadm>>
(csetq tramp-ssh-controlmaster-options nil (csetq tramp-ssh-controlmaster-options nil
tramp-verbose 0 tramp-verbose 0
tramp-auto-save-directory (locate-user-emacs-file "tramp/") tramp-auto-save-directory (locate-user-emacs-file "tramp/")
@ -4493,7 +4453,7 @@ the usage of the ~:ignore:~ tag in org.
:END: :END:
#+name: org-agenda-files #+name: org-agenda-files
#+begin_src emacs-lisp #+begin_src emacs-lisp
(setq org-agenda-files (list "~/org/agenda" "~/org/notes.org" "~/org/internship.org")) (setq org-agenda-files (list "~/org/agenda" "~/org/notes.org"))
#+end_src #+end_src
*** Babel *** Babel
@ -7888,12 +7848,14 @@ slightly darker background? Im not sure.)
:CUSTOM_ID: Packages-Configuration-Visual-Configuration-Themeded6fl6184j0 :CUSTOM_ID: Packages-Configuration-Visual-Configuration-Themeded6fl6184j0
:END: :END:
You may have noticed I use the Nord theme pretty much everywhere on my You may have noticed I use the Nord theme pretty much everywhere on my
computer, why not Emacs? computer, why not Emacs? In my opinion, its aurora variant is nicer
than the default Nord theme since it is richer in colors --- just a
personal preference.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package doom-themes (use-package doom-themes
:straight (:build t) :straight (:build t)
:defer t :defer t
:init (load-theme 'doom-nord t)) :init (load-theme 'doom-nord-aurora t))
#+end_src #+end_src
*** Rainbow Delimiters *** Rainbow Delimiters

View File

@ -687,6 +687,12 @@ abbr nsxiv 'nsxiv -abfs f'
abbr sxiv 'nsxiv -abfs f' # old habits die hard abbr sxiv 'nsxiv -abfs f' # old habits die hard
#+END_SRC #+END_SRC
The following abbreviation is here so I can easily launch software
with my Nvidia GPU.
#+begin_src fish
abbr nv 'env __NV_PRIME_RENDER_OFFLOAD=1 __GLX_VENDOR_LIBRARY_NAME=nvidia'
#+end_src
Finally, let's declare the following abbreviation that will launch an mpv Finally, let's declare the following abbreviation that will launch an mpv
instance displaying my webcam: instance displaying my webcam:
#+BEGIN_SRC fish #+BEGIN_SRC fish

View File

@ -596,13 +596,13 @@ Ive been used to ten groups, or workspaces, or tags, since I began
using tiling window managers. I shall then continue this habit. Here using tiling window managers. I shall then continue this habit. Here
is the list of groups I will be using: is the list of groups I will be using:
#+name: list-groups #+name: list-groups
| Groups | Number | Windows | Type | | Groups | Number | Windows | Type |
|---------+--------+---------+------| |---------+--------+---------+--------|
| [TERM] | 1 | | | | [EMACS] | 1 | | Tiling |
| [EMACS] | 2 | | | | [TERM] | 2 | | Tiling |
| [WWW] | 3 | | | | [WWW] | 3 | | Tiling |
| [PRIV] | 4 | | | | [PRIV] | 4 | | Tiling |
| [FILES] | 5 | Nemo | | | [FILES] | 5 | Nemo | Tiling |
#+name: gen-groups #+name: gen-groups
#+header: :exports none #+header: :exports none
@ -623,9 +623,9 @@ is the list of groups I will be using:
"\n")) "\n"))
#+end_src #+end_src
#+RESULTS[80f994f9e2436c4c5e2f9916b93813083135c1d2]: gen-groups #+RESULTS[7c58aa808149319f652155b05c9324b841324f23]: gen-groups
: (grename "[TERM]") : (grename "[EMACS]")
: (gnewbg "[EMACS]") : (gnewbg "[TERM]")
: (gnewbg "[WWW]") : (gnewbg "[WWW]")
: (gnewbg "[PRIV]") : (gnewbg "[PRIV]")
: (gnewbg "[FILES]") : (gnewbg "[FILES]")