FilesExpand file tree

 main

/

fehbg.nu

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

executable file

·

69 lines (59 loc) · 2.06 KB

 main

/

fehbg.nu

Copy path

Top

File metadata and controls

• Code
• Blame

executable file

·

69 lines (59 loc) · 2.06 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

#!/usr/bin/env engine-q

#

# ~/.fehbg.nu

#

# This script selects a random image from a directory and sets it as a

# wallpaper. An additional feature is that it draws the path of the image in

# the lower left corner which makes it easier to find the image later.

#

# The procedure is as follows::

# * Select a random image from a directory (recursively entering all

# subdirectories)

# * Print the path of the image on top of the selected image

# * Save the result in a temporary file

# * Set the temporary image as a wallpaper.

#

# !! Requires `WALLPAPER_DIR` and `TMP_DIR` environment variables to be set !!

# (or just hardcode your own paths below)

#

# You can set this script to run on desktop startup, e.g., by adding it to

# xinitrc.

#

# Dependencies;

# * new Nushell engine (https://github.com/nushell/engine-q)

# * feh

# * imagemagick

# Path definitions

let img-dir = $env.WALLPAPER_DIR

let tmp-image = ([ $env.TMP_DIR "wallpaper.jpg" ] | path join)

# Monitor resolution

let resolution-y = 1440

let res-str = ($"x($resolution-y)")

# Position of the caption

let pos-x = 5

let pos-y = (0.995 * $resolution-y | into int)

# Select random item from input

def select-random [] {

shuffle | first

}

# List all images in a directory and all its subdirectories

def list-images [dir: path] {

ls $"($dir)/**/*" |

where type == file |

str downcase name |

where name =~ jpg || name =~ jpeg || name =~ tif || name =~ tiff || name =~ png

}

# Set the caption text (just filename for now)

def caption [img-f: string] {

echo $img-f

}

# Build the argument for the '-draw' command of the 'convert' utility

def draw-str [img-f: string] {

$"text ($pos-x), ($pos-y) (char dq)(caption $img-f)(char dq) "

}

# Select random image

let img-name = (list-images $img-dir | select-random | get name) # TODO: change the env var to $img-dir

# Resize the image to the monitor height, draw the caption and save it

convert -resize $res-str -pointsize 15 -fill 'rgb(255,200,150)' -draw (draw-str $img-name) $img-name $tmp-image

# Set the created image as a background

feh --no-fehbg --bg-max $tmp-image