Nearsighted quirk lets you pick the look of the glasses you spawn with (

tgstation#62145)

expansion: Nearsighter quirk now lets you pick the look of your prescription glasses from the character preference menu
imageadd: Added thin prescription glasses

code/_globalvars/lists/quirks.dm

@@ -0,0 +1,4 @@
+///Lists related to quirk selection
+
+///Types of glasses that can be selected at character selection with the Nearsighted quirk
+GLOBAL_LIST_INIT(nearsighted_glasses, list("Regular","Thin","Circle","Hipster"))

code/datums/quirks/negative.dm

@@ -287,9 +287,21 @@
 	lose_text = "<span class='notice'>You start seeing faraway things normally again.</span>"
 	medical_record_text = "Patient requires prescription glasses in order to counteract nearsightedness."
 	hardcore_value = 5
+	var/glasses
 
 /datum/quirk/item_quirk/nearsighted/add_unique()
-	give_item_to_holder(/obj/item/clothing/glasses/regular, list(LOCATION_EYES = ITEM_SLOT_EYES, LOCATION_BACKPACK = ITEM_SLOT_BACKPACK, LOCATION_HANDS = ITEM_SLOT_HANDS))
+	glasses = glasses || quirk_holder.client?.prefs?.read_preference(/datum/preference/choiced/glasses)
+	switch(glasses)
+		if ("Thin")
+			glasses = /obj/item/clothing/glasses/regular/thin
+		if ("Circle")
+			glasses = /obj/item/clothing/glasses/regular/circle
+		if ("Hipster")
+			glasses = /obj/item/clothing/glasses/regular/hipster
+		else
+			glasses = /obj/item/clothing/glasses/regular
+
+	give_item_to_holder(glasses, list(LOCATION_EYES = ITEM_SLOT_EYES, LOCATION_BACKPACK = ITEM_SLOT_BACKPACK, LOCATION_HANDS = ITEM_SLOT_HANDS))
 
 /datum/quirk/item_quirk/nearsighted/add()
 	quirk_holder.become_nearsighted(QUIRK_TRAIT)

code/modules/client/preferences/glasses.dm

@@ -0,0 +1,16 @@
+/datum/preference/choiced/glasses
+	category = PREFERENCE_CATEGORY_SECONDARY_FEATURES
+	savefile_key = "glasses"
+	savefile_identifier = PREFERENCE_CHARACTER
+
+/datum/preference/choiced/glasses/init_possible_values()
+	return GLOB.nearsighted_glasses
+
+/datum/preference/choiced/glasses/is_accessible(datum/preferences/preferences)
+	if (!..(preferences))
+		return FALSE
+
+	return "Nearsighted" in preferences.all_quirks
+
+/datum/preference/choiced/glasses/apply_to_human(mob/living/carbon/human/target, value)
+	return

code/modules/clothing/glasses/_glasses.dm

@@ -255,6 +255,11 @@
 	. = ..()
 	vision_correction = TRUE
 
+/obj/item/clothing/glasses/regular/thin
+	name = "thin prescription glasses"
+	desc = "More expensive, more fragile and much less practical, but oh so fashionable."
+	icon_state = "glasses_thin"
+
 /obj/item/clothing/glasses/regular/jamjar
 	name = "jamjar glasses"
 	desc = "Also known as Virginity Protectors."

tgstation.dme

@@ -270,6 +270,7 @@
 #include "code\_globalvars\lists\names.dm"
 #include "code\_globalvars\lists\objects.dm"
 #include "code\_globalvars\lists\poll_ignore.dm"
+#include "code\_globalvars\lists\quirks.dm"
 #include "code\_globalvars\lists\typecache.dm"
 #include "code\_globalvars\lists\wiremod.dm"
 #include "code\_globalvars\lists\xenobiology.dm"
@@ -2150,6 +2151,7 @@
 #include "code\modules\client\preferences\fps.dm"
 #include "code\modules\client\preferences\gender.dm"
 #include "code\modules\client\preferences\ghost.dm"
+#include "code\modules\client\preferences\glasses.dm"
 #include "code\modules\client\preferences\hotkeys.dm"
 #include "code\modules\client\preferences\item_outlines.dm"
 #include "code\modules\client\preferences\jobless_role.dm"

tgui/packages/tgui/interfaces/PreferencesMenu/preferences/features/character_preferences/glasses.tsx

@@ -0,0 +1,6 @@
+import { FeatureChoiced, FeatureDropdownInput } from "../base";
+
+export const glasses: FeatureChoiced = {
+  name: "Glasses",
+  component: FeatureDropdownInput,
+};